ساااااااااااااعدوني

[السوفي محمد]

سلااااااام عليكم اخوتي ممكن مسااااعدة كيف اعمل مشروعين الدلفي في مشروووع





اي واجهتين في نفس المشروووووووع

[طيباوي ابو علي1]

هذا حسب ما فهت من سؤال :
مشروعين الدلفي في مشروع
اذا كان هناك خطأ وضح أكثر

هذا المشروع الاول

فتح أي برنامج أو مجلد بـدلفي

// استدعاء الوحدة الخاصة بهذه الدوال التي سوف نستعملها فيما بعد أو لاحقا

uses
****lApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
// فتح مشروع ثاني
****lExecute(Handle, 'open', 'اسم المشروع الثالني', nil, nil, SW_SHOW);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
// فتح المشروع الثالث
****lExecute(Handle, 'open', 'اسم المشروع الثالث', nil, nil, SW_SHOW);
end;

[طيباوي ابو علي1]

هذا حسب ما فهت من سؤال :
مشروعين الدلفي في مشروع
اذا كان هناك خطأ وضح أكثر

هذا المشروع الاول

فتح أي برنامج أو مجلد بـدلفي

// استدعاء الوحدة الخاصة بهذه الدوال التي سوف نستعملها فيما بعد أو لاحقا
// انزع الفراغات
uses
S h e l lApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
// فتح مشروع ثاني
S h e llExecute(Handle, 'open', 'اسم المشروع الثالني', nil, nil, SW_SHOW);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
// فتح المشروع الثالث
S h e l lExecute(Handle, 'open', 'اسم المشروع الثالث', nil, nil, SW_SHOW);
end;