01-08-2014, 03:36 PM
شكرا لك أخي
والآن كيف نضع هذا الحدث
في procedure به متغير tform ومناداته من أجل كل الفورمات الباقية
مثلا نسمي ال procedure باسم myshowform به متغير t:Tform
ونضع فيه الكود السابق من أجل الفورم t
والآن كيف نضع هذا الحدث
كود :
procedure TForm1.btn1Click(Sender: TObject);
begin
if form2.Showing then Exit;
Form2:=TForm2.Create(nil);
form2.FormStyle:=fsMDIChild;
Form2.Show;
end;مثلا نسمي ال procedure باسم myshowform به متغير t:Tform
ونضع فيه الكود السابق من أجل الفورم t