WebBrowsr Buton Tıkladıktan Sonra sayfa Yüklenmesi Beklemiyo

[static_reactor]

S.A. Arkadaşlar.

Kod: Tümünü seç

FAna.wb_Kaynak.Navigate(pSiteLink);
While FAna.wb_Kaynak.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;

şimdi yukarıdaki kod site açılana kadar bekliyor. ama ben bunun benzerini şurada istiyorum.

Kod: Tümünü seç

FAna.wb_Kaynak.OleObject.Document.GetElementByID('Name').Value := 'Deneme';
FAna.wb_Kaynak.OleObject.Document.GetElementByID('msg').Value := 'Hoşgeldiniz';
FAna.wb_Kaynak.OleObject.Document.GetElementByID('btn').click; 

işte tam burada ('btn').click yaptığımız an sayfanın kendine gelene kadar beklemesini istiyorum.
bu kod;

Kod: Tümünü seç

While FAna.wb_Kaynak.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;

Bu kodun;

Kod: Tümünü seç

FAna.wb_Kaynak.OleObject.Document.GetElementByID('btn').click; 

hemen altında olsa bile yemiyor.
bende

Kod: Tümünü seç

FAna.wb_Kaynak.OleObject.Document.GetElementByID('Name').Value := 'Deneme';
FAna.wb_Kaynak.OleObject.Document.GetElementByID('msg').Value := 'Hoşgeldiniz';
FAna.wb_Kaynak.OleObject.Document.GetElementByID('btn').click; 
sleep(30000);

falan yapıyorum ama sağlıksız oluyor he zaman yemiyor. Fikri olan varmı acaba

[sabanakman]

DownloadComplete olayı tetiklendiği zaman sayfa tamen yüklenmiş olacaktır.

Kod: Tümünü seç

var Bekle:Boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
//-->
  FAna.wb_Kaynak.OleObject.Document.GetElementByID('Name').Value := 'Deneme';
  FAna.wb_Kaynak.OleObject.Document.GetElementByID('msg').Value := 'Hoşgeldiniz';
  FAna.wb_Kaynak.OleObject.Document.GetElementByID('btn').click;
//<-- Sayfa açma kodlarınız
  Bekle:=True;
  while Bekle do Application.ProcessMessages;
  ShowMessage('Sayfa yüklendi');
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
  Bekle:=False;
end;