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

السلام عليكم ورحمة الله وبركاته

كيف أستطيع أن أصنع برنامج به :

2 زر و 1 Edittext وأضع العنصر Opendialog بحيث أذا ضغطت علي الزر أختار أي برنامج ثم أجلب مسار ذلك البرنامج وأحفظه في متغير من نوع String ،،، ثم يعرض المسار في المكون Edit ،، وشكرا

صورة البرنامج المراد عمله في المرفقات

وعليكم السلام ورحمة الله وبركاته

كود :
var path:string;
begin
if opendialog1.Execute then
path:=opendialog1.filename;

edit1.text:=path
end;

يمكن الاسغناء عن المتغير path

كود :
begin
if opendialog1.Execute then
edit1.text:=opendialog1.filename;
end;

شكرا يا أخي وبارك الله فيك ،،،،،،،

mahmoud2hack

CID_01

mahmoud2hack