فرمی مانند explorer [بایگانی]

Tarrah

شنبه 20 اسفند 1384, 14:47 عصر

یه فرم می خوام طراحی کنم که روش یه edit box باشه . وقتی کاربر یه آدرس می نویسه و Go رو میزنه سایت مربوطه نشون داده بشه .
می خوام این فرم امکانات اضافی (مثل win ) نداشته باشه.فقط یه Address bar کافیه.
چطور می تونم این کار رو انجام بدم ؟

Hamid_PaK

شنبه 20 اسفند 1384, 19:45 عصر

یک فرم ... داخل آن یک پنل که با بالا تنظیم شده باشد که روی آن یک ادیت باکس قرار گرفته ... و یک وب بروزر ( WebBrowser ) که با فرم تنظیم شود ... ( این چیز ها که مشکل نیست ... اگه جایی خطایی ، کدی و ... برخورد کردید چه کار می کنید ... کمی هم خلاقیت کافی است )

یا حق !!!

mzjahromi

یک شنبه 21 اسفند 1384, 08:12 صبح

یک نگاه به این مسیر بینداز.
Demo خود دلفی هست
E:\Program Files\Borland\Delphi7\Demos\CoolStuf

Tarrah

یک شنبه 21 اسفند 1384, 17:23 عصر

از راهنمائی هاتون ممنونم
یه edit گذاشتم با یه webbrowser و مشکل حل شد.
حالا می خوام یه مسئله دیگه اتفاق بیافته.
در حالت اجرا وقتی رو قسمت webbrowser تو یه قسمت دیگه می رم url مربوطه هم تغییر کنه.
مثلا تو edit می نویسیم http://www.yahoo.com .تو این صفحه که رفت مثلا رو mail کلیک می کنیم .حالا می خوام متن edit هم به http://mail.yahoo.com/?.intl=us تغییر کنه.
راه حل چیه ؟

realman

یک شنبه 21 اسفند 1384, 18:47 عصر

سلام دوست عزیز
برای حل مشکلاتت به این منبع مراجعه کن.در صورتی که باز هم مشکلی بود،در خدمتم.
http://www.cryer.co.uk/brian/delphi/twebbrowser/twebbrowser_oleobject.htm
در ضمن برای استفاده از کدهای این سایت در قسمت uses برنامت باید mshtml رو هم اضافه کنی.

Tarrah

دوشنبه 22 اسفند 1384, 08:53 صبح

locationurl در کدام event باید نوشته بشه؟
ontitlechange میشه؟

Tarrah

دوشنبه 22 اسفند 1384, 09:53 صبح

یه مسئله دیگه .
حالا می خوام توقسمت بالای فرم همونجائی که edit هست چندتا button بذارم که حروف روش نوشته شده باشن . بر فرض طرف رفته تو mail.yahoo.com و می خواد email اش رو بنویسه . چی کار کنم که با زدن این کلید ها تو قسمت مربوطه کاربر user و پسورد رو بنویسه و checkmail کنه؟

realman

دوشنبه 22 اسفند 1384, 13:38 عصر

locationurl در کدام event باید نوشته بشه؟
ontitlechange میشه؟

برای تغییر ادرس در رویداد OnNavigateComplete2 به صورت زیر عمل کن:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if (URL <> 'about:_blank') and (URL <> 'Edit1.Text') then
Edit1.Text:=URL;
end;