Ĺadny brzuch
Mam pytanie. Co zrobić aby każda zakładka w webbrowser miała swoją kontrolkę wstecz i dalej, a nie wspólne dla wszystkich zakładek.
Chwila, nie rozumiem :P
Jakie zakładki? Domyślam się, że masz w TPageControl porobione WebBrowsery.
Ale nie kumam, jak ma mieć swoją kontrolkę ^^'' nie możesz poprostu zrobić przycisk w danym TabSheecie? A może ty chcesz jeden przycisk, ale by działał zależnie od wyświetlanego TS/WB ? Jeśli tak, to sprawdzaj, który TabSheet jest wyświetlany (np. PageControl1.ActivePage albo ActiveIndex czy jakoś tak) i dla niego wywołuj procedury ;)
Poza tym, niby w jakim języku chcesz to zrobić :> ?
(PageControl1.ActivePage.Controls[0] as TWebBrowser).Back
O to się rozchodzi?
Tak. Właśnie coś w tym stylu. Próbowałem tego, lecz nie działa :( Zastanawiam się czy nie jest to wina tego, że używam jeszcze tego kodu.
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); begin case Command of CSC_NAVIGATEBACK: ButtonBack.Enabled := Enable; CSC_NAVIGATEFORWARD: ButtonForward.Enabled := Enable; end; end;
Niestety nie mogę go usunąć, gdyż jest mi on bardzo potrzebne.
Da się coś zrobić?
Użytkownik jin edytował ten post 20 luty 2007, 21:22
Tak. Właśnie coś w tym stylu. Próbowałem tego, lecz nie działa :( Zastanawiam się czy nie jest to wina tego, że używam jeszcze tego kodu.
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); begin case Command of CSC_NAVIGATEBACK: ButtonBack.Enabled := Enable; CSC_NAVIGATEFORWARD: ButtonForward.Enabled := Enable; end; end;
Niestety nie mogę go usunąć, gdyż jest mi on bardzo potrzebne.
Da się coś zrobić?
A czy ty rozumiesz ten kod?
Rozumiem a co?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Chwila, nie rozumiem :P
Jakie zakładki? Domyślam się, że masz w TPageControl porobione WebBrowsery.
Ale nie kumam, jak ma mieć swoją kontrolkę ^^'' nie możesz poprostu zrobić przycisk w danym TabSheecie? A może ty chcesz jeden przycisk, ale by działał zależnie od wyświetlanego TS/WB ? Jeśli tak, to sprawdzaj, który TabSheet jest wyświetlany (np. PageControl1.ActivePage albo ActiveIndex czy jakoś tak) i dla niego wywołuj procedury ;)
Poza tym, niby w jakim języku chcesz to zrobić :> ?
(PageControl1.ActivePage.Controls[0] as TWebBrowser).Back
O to się rozchodzi?
Tak. Właśnie coś w tym stylu. Próbowałem tego, lecz nie działa :( Zastanawiam się czy nie jest to wina tego, że używam jeszcze tego kodu.
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); begin case Command of CSC_NAVIGATEBACK: ButtonBack.Enabled := Enable; CSC_NAVIGATEFORWARD: ButtonForward.Enabled := Enable; end; end;
Niestety nie mogę go usunąć, gdyż jest mi on bardzo potrzebne.
Da się coś zrobić?
Użytkownik jin edytował ten post 20 luty 2007, 21:22
Tak. Właśnie coś w tym stylu. Próbowałem tego, lecz nie działa :( Zastanawiam się czy nie jest to wina tego, że używam jeszcze tego kodu.
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); begin case Command of CSC_NAVIGATEBACK: ButtonBack.Enabled := Enable; CSC_NAVIGATEFORWARD: ButtonForward.Enabled := Enable; end; end;
Niestety nie mogę go usunąć, gdyż jest mi on bardzo potrzebne.
Da się coś zrobić?
A czy ty rozumiesz ten kod?
Rozumiem a co?