17-05-2010, 10:01 PM
اخي حسين اليك كيفية اضافة ProgressBar
كود :
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
ProgressBar1.Max:=ProgressMax;
ProgressBar1.Position:=Progress;
end;
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان