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

[Saladine]

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

[__الهاوي__]

السلام عليكم

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

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

إليك الكود زيادة على إضافات تجميلية.

كود PHP:

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 فهاهما:
https://www.geocities.com/messadi_mad...WebBrowser.zip


إلى الملتقى

[Saladine]

شكرا يا غالي