مشكل صادفني في الدلفي§§§§§

[Saladine]

السلام عليكم ورحمة الله وبركاته
كان لدي مشروع تصميم متصفح للنت بالدلفي
وفي خلال برمجته
اردت اضافة خاصية تحديث الصفحة التلقائية المرتبطة بالزمن
أضفت Timer في form1
ووضعت فيه WebBrowser1.*******;
وحددت الزمن بـ 5000 ميلي ثانية
لكن لم يعمل بشكل صحيح
هلا تضعون لي برنامج بسيط مماثل
الله يحفظكم

[__الهاوي__]

السلام عليكم

لقد ركبت الدلفي 6 بالإنجليزية لأجل التواصل مع إخوتي في ه>ا المنتدى، فنتمنى أن تكون هناك حيوية وتعاون.

فيما يخص عملك أخي صلاح الدين، فكل ما عليك هو استخدام المنهاج (method) التابع للفئة (class) المستخدمة.
فئتنا المستخدمة هي WebBrowser، ومنهاجها هو ref_resh بدون (_)

إليك الكود زيادة على إضافات تجميلية.
var
Form1: TForm1;
const
interval =20; //بدل القيمة هنا

implementation

{$R *.dfm}

procedure TForm1.BitBtnStartClick(Sender: TObject);
begin
TimerCounter.Enabled:=not TimerCounter.Enabled;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
WebBrowser1.Navigate(editAddress.Text);
end;

procedure TForm1.TimerCounterTimer(Sender: TObject);
begin

Label1.Caption:=IntToStr(StrToInt(Label1.Caption)-1);
if StrToInt(Label1.Caption) < 0 then
begin
WebBrowser1.ref_resh ();
Label1.Caption:=IntToStr(interval);
end
end;

procedure TForm1.BitBtnEndClick(Sender: TObject);
begin
TimerCounter.Enabled:=not TimerCounter.Enabled;
Label1.Caption:=IntToStr(interval);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Label1.Caption:=IntToStr(interval);
end;

end.

أما المشروع والملف التنفيذي لمن لا يستطيعون فتح مشروع delphi6 في بيئة delphi5 فهاهما:
http://www.geocities.com/messadi_madani/MyWebBrowser.zip


إلى الملتقى:1:

[Saladine]

شكرا يا غالي