webbrowser v delphi

ako zistím v delphi kedy už je načítana vo webbrowseri stránka? našiel som property ondownloadcomplete ale nejak ju neviem použiť

mno vyskusal som to a u mna to pracuje taky akosi divne ,
osetril som tuu udalost takto :

po nacitani prvej stranky to funguje ale potom ked to chcem pouzit este raz tak spravu ukaze uz pred nacitanim , newim preco to robi , tebe to nejde vobec?

napíš mi prosímťa celý zdroják..

zdrojak je jednoduchy , normalny , mne to funguje ale ako pisem iba na prvej stranke

hmm.. no dík.. asi sa s tým budem musieť pohrať ale už sa mi nechce. Ale dík za ochotu, ak má ešte niekto iné nápady (a riešenia v čom je problém) tak píšte

tak som to vyriešil, a mám nový problém: ako nasimulujem v tom webbrowseri kliknutie na odkaz/button? (aj keď mám dojem že tu mi nikto nepomôže)

"Tady máš synku"... nedokočený LordMMX Minibrowser....

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, Menus, StdCtrls, ExtCtrls, ComCtrls, ShellAPI;
type
TForm1 = class(TForm)
Edit1: TEdit;
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
WebBrowser1: TWebBrowser;
Label1: TLabel;
WebBrowser2: TWebBrowser;
Button1: TButton;
Button2: TButton;
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormActivate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure WebBrowser1DownloadComplete(Sender: TObject);
procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
begin
WebBrowser1.Navigate(Edit1.Text);
Label1.Caption := 'Hľadám stránku, čakajte prosím...'
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Edit1.Width := (Form1.Width - 8);
WebBrowser1.Width := (Form1.Width - 8);
WebBrowser1.Height := (Form1.Height - 118);
Label1.Top := (Form1.Height - 70);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Edit1.Width := (Form1.Width - 8);
WebBrowser1.Width := (Form1.Width - 8);
WebBrowser1.Height := (Form1.Height - 118);
Label1.Top := (Form1.Height - 70);
end;
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
Label1.Caption := 'Stránka úspešne načítaná.'
end;
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var location : string;
begin
ppDisp := WebBrowser1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Stop;
Label1.Caption := 'Zastavené.'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Refresh;
Label1.Caption := 'Obnovujem, čakajte prosím...'
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
close;
end;
end.

1) niekedy si pozri aj dátum založenia témy, toto je už staré
2) zdrojáky dávaj do code, takto je to neprehladné
3) nepomohlo, keby si čítal posledný môj post tak by si vedel že chcem simulovať kliknutie bez pohybu myšky a to tam nikde nemáš. Takisto ten downloadcomplete tam nerieši ten problém ktorý sme spomínal (funguje iba pri prvom načítaní)
4) nenazývaj ma synku, myslím že v programovaní sa viem trošku viac obracať, keď som videl ten tvoj zdroják tak som mal dosť. Pri zmene rozmerov nastavovať pozície komponentov? A čo ak ich bude 200? také že alignment a anchors ti nič nehovorí?

ušlo ti asi že som napísal "nedokončený"... a naviac ako som s tým začal tak som s tým skončil... čiže ak je to BAD tak je to BAD s tým už nič nenarobím... len som chcel pomôcť

aj by som skusil pomoct ale mam uz len Delphi 7 Personal a tam neni komponenta WebBrowser . By som musel zase nainstalovat Delphi 2005 Architect . Ale sak skusim

delphi 7 enterprise webbrowser má

ale ja mam PERSONAL. A enterprise je zadara??? kde ho zozeniem?

na nekomerčné účely hej

no stiahol som si to Enterprise z codegear.com a neviem serial. a nijaky nepasuje. Dufam ze som nestiahol Professional . kaslat na to budem 2 hodiny cakat kym sa nainstaluje 2005 Architect Edition.

uz som si nainstaloval 2005 Architect a nieco som vyhutal.
skus toto. asi je to to co si chcel. malo by ti to ist :

nie, keby si pozrel javov post hore, tak tam písal prestne to čo ty

ale je tam jeden rozdiel - ja mam event "OnDocumentComplete" a on ma "OnDownloadComplete". skus tam dat to moje

aj ti to ide?