نمایش میزان لود شدن در تب جدید twebbrowser

[mirzaii]

با سلام من با استفاده از یک twebbrowser کد زیر رو به منظور افزودن یک تب جدید نو شتم :


ATabSheet := TTabSheet.Create(PageControl1);

with ATabSheet do

begin

Parent := PageControl1;

PageControl := PageControl1;

end;

WeB := TWebBrowser.Create(AtabSheet);

WeB.ParentWindow :=ATabSheet.Handle;

web.Width:=1003;

web.Height:=524;

pageControl1.ActivePage:=ATabSheet;

web.Navigat('');
و به منظور نمایش میزان لود شدن صفحه از کد زیر استفاده کردم ولی این کار تنها برای اولین بار که صفحه لود می شه کاربرد داره و وقتی تب جدید ایجاد می شه دیگه progressbar1 این میزان رو نشون نمی ده لطفا راهنمایی بفرمایین:

procedure TForm5.webProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
begin
if Progress>0 then
begin
ProgressBar1.max := ProgressMax;
ProgressBar1.Position := Progress;

end { Progress>0 }
else
ProgressBar1.Position := 0
end;

[mirzaii]

دوستان اگه کسی می دونه لطفا راهنمایی بفرمایین خیلی برام ضروریه

[Mahmood_M]

وقتی Tab جدید ساخته میشه ، یک TWebBrowser جدید هم داخل اون می سازید ؟
اگه اینطور هست ، باید رویداد OnProgressChange اون رو مقداردهی کنید ...

لطفا درباره روشتون کمی توضیح بدید ...

[mirzaii]

با تشکر از شما آقا محمود بلی همون طور که توی اولین تاپیک کدشو گذاشتم ابتدا یک tabsheetوسپس یه webbrowserدر داخل یک panel ایجاد می کنم و م نمی دونم چطور رویداد onprogresschangeمربوط به webbrowser ساخته شده رو کدنویسی کنم .

[mirzaii]

دوستان باور کنین کارم گبره اگه لطف کنین جواب بدین ممنون می شم. در واقع من نحوه کدنویسی در رویداد onprogresschange مربوط به webbrowserساخته شده در درون یک tabsheet که اونم ساخته شده رو نمی دونم .

[Mahmood_M]

این تاپیک مشکلتون رو حل میکنه :
http://barnamenevis.org/forum/showthread.php?t=79889

موفق باشید ...