28-09-2011, 12:11 AM
اود من لدية خبرة افادتنا
الهدف هو عملية نقر زر في برنامج خارجي
هذا المثال عندما يكون الفورم 2 في البرنامج
هذا توضيح لا غير عن هدف السؤال
![[صورة: picture0001e.png]](http://img813.imageshack.us/img813/8426/picture0001e.png)
الهدف هو عملية نقر زر في برنامج خارجي
هذا المثال عندما يكون الفورم 2 في البرنامج
هذا توضيح لا غير عن هدف السؤال
كود :
uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
if Form2.Showing then
Form2.Button1Click(Sender);
end;كود :
procedure TForm2.Button1Click(Sender: TObject);
begin
ShowMessage('Gooooooool');
end;