وضع رابط أفتراضي في متصفح الدلفى Twebbrowser ؟

[addo22]

هل يمكنني وضع رابط أفتراضي في متصفح الدلفى ؟ مثل الفيجوال بيسك ؟

[Agmcz]

السلام عليكم
استعمل المكتبة SHDocVw.pas

[addo22]

و عليكم السلام ...

شكرا على الرد .

أنا أستعمل بالفعل SHdocvw.pas و لكن هذا ليس السؤال المطروح

أنا فقط أستفسر عن كيفية عمل Navigate من دون أستخدام Button , يعني فتح رابط تلقائي عند فتح البرنامج

[Agmcz]

ضع في الحدث on create

كود :

WebBrowser.Navigate('http://www.google.com');

[addo22]

واجهتني مشكلة في تشغيل الحدث

كود :

procedure TForm1.TWebBrowserCreate(Sender: TObject) ; begin Web.Navigate('http://google.com'); end;

[Agmcz]

أنا اقصد الحدث للفورم
مرفق مثال
بالتوفيق

[addo22]

ألف شكر تم حل المشكله بالكود المرفق

[addo22]

شكرا أخ Ghost لدي سؤال أخر ..

عند أستخدام Twebbrowser لا يعمل مثل المتصفحات العادية

على سبيل المثال لا يقرأ مدخلات Session في الصفحة

هل هناك حل لجعل هذا المتصفح يعمل مثل الأنترنت أكسبلورير