كيف يتم انشاء procedure خاص ب form.show

[S.FATEH]

السلام عليكم
عند انشاءك لفورم جديد دلفي يقوم باضافة متغير عام الى الوحدة

PHP كود :

var
  Form1: TForm1; 


يمكنك استخدام هذا المتغير في انشاء الفورم لكن يجب ان تمرر Class الفورم الى الـ procedure الخاص بك
لكي يقوم بانشاء الفورم ...

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateAndShow(Form3, TForm3, True);
end;

procedure TForm1.CreateAndShow(Form:TForm; FormClass: TFormClass; Bool: Boolean);
begin
  Form := FormClass.Create(nil);
  try
    Form.ShowModal;
  finally
    Form.Free;
  end;
end;