delphi4arab منتديات دلفي للعرب

كيف أن أضع أداة edit و button حيث أكتب مسار ما في edit وتقوم button بفتحه عند القر عليها
يعني مثل الـ Run
وجزاك الله خيراً

السلام عليكم..
أضف العناصر كما في الصورة:

لاتنسى تضيف الدالة shellapi في قسم use
الشيفرات:
في زر ok
زر cancel
في زر browser
في timer
/حيث button1هو زر ok
في حدث keypress للمكون combobox1

إقتباس :if key=#13 then begin
shellexecute(0,nil,pchar(combobox1.Text),nil,nil,1);
combobox1.Items.Add(combobox1.text);
end;

-اضبط interval لـ timerعلى 100 مثلا
وقارن بين برنامجك وبين run windows
دعواتك..

رائع ، بــــارك الله فيك أخي ، ولكني أرى لو تضع : الكود :
في الحدث Onchange لــ Combobox أحسن من التايمر من حيث استهلاك موارد النظام .
و الله على و أعلم.

nabilkeb
الرأي ما ترى ..والله تعالى اعلى وأعلم.

كلام الأخ nabilkeb صحيح فأنا منذ كنت مبتدأ كنت اضعها في التايمر مما كان يسبب لي الكثير من الأخطاء

musvc
لم أقل عكس ذلك.
+ ليكن التطبيق أحسن:
في الخاصية filter لاختيار انواع الملفات المراد فتحها ولاحداث تطابق اكثر مع run الويندوز للكائن اضغط على ثلاث نقاط (...) يظهر لك الجدول ذو العمودين file name ضعها فيها programmes والعمود filter ضع فيه exe.*
نفذ الآن واضغط على parcourir وشاهد التغيرات.

nabilkeb كتب :

كود :

if combobox1.Text = '' then button1.Enabled:=false else button1.Enabled:=true;

في الحدث Onchange لــ Combobox

يمكن اختصارها

DeltaAziz كتب :يمكن اختصارها

PHP كود :

button1.Enabled := combobox1.Text <> ''; 


انت دائما ً خير في مجالات الأختصار