Witam mam
procedure TForm1.startClick(Sender: TObject);
var
i : integer;
begin
webbrowser1.Navigate(xxxx.text);
if stronasciagnieta = true then
begin
loginprocedura;
timer1.Enabled := true;
end;
end;
Gdzie loginprocedura ustawia zmieena stronasciagnieta na false. Pytanie mam takie, gdy klikam na button wczytuje się strona i warunek jest sprawdzany, jest false więc jak zrobić żeby sprawdzić go drugi raz? Próbowałem w pętli while i w labelach, i nie wychodzi mi.
Ustawić go kiedy trzeba na True. Pewnie TWebBrowser ma jakieś zdarzenie OnDocumentComplete czy jakoś tak. O ile koniecznie musisz używac TWebBrowser bo strona używa koniecznie javascriptu, jeżeli nie, a nie musisz wizualnie pokazywać elementów to wykorzystaj pakiety Indy lub Synapse. Poza tym do takich sprawdzeń warunków żeby na przykład aktywować buttony, używa się zdarzenia OnUpdate dla TAction, dodanej dla komponnetu TActionList (paleta Standard). Należy tylko koniecznie ustawić jakiś kod w zdarzeniu OnUpdate dla TAction i ową akcję ustawić przez własność formatki Action. Dla OnUpdate może być wspólna procedura. Ja zwykle dodaje jej deklarację przez wszystkimi dopisanymi w elementach formatki i nazywam na przykład procedure _AUpdateControls(Sender : TObject); i tak samo później definiuje. A taka nazwa pozwala mi łatwo wybrać ją z pierwszej pozycji na liście, jeżeli mam do ustawienia wiele akcji na przykład dla przycisków, wtedy w OnUpdate jest ta procedura, a w OnExecute dla akcji jest zdarzenie OnClick, które normalnie miałby ten button. Należy jednak pamiętac o ustawieniu Caption dla danej TAction.