Form variable assignment problem

[yxzzjg]

 

Write the form name transfer in the Create, such as form1, the form will automatically create the display. I just need to do form1 variable transmission. How to do?

 

procedure TFMain.UniFrameCreate(Sender: TObject);

begin

   Form1;    //Automatically displayed Form1, not what I need 

End;

 

=========================

I need

 

 

protected

       FName:TUniForm;

 

procedure TFmain.UniFrameCreate(Sender: TObject);

begin

      FName:=Form1;        //You do not need to show

end;

 

procedure TFmain.btnAddClick(Sender: TObject);

begin

    FName.ShowModal(showcallback);

end;

 

 

 

[Farshad Mohajeri]

Please use datamodules or mainmodule to keep global vars. Forms should be displayed after created.

[yxzzjg]

Please use datamodules or mainmodule to keep global vars. Forms should be displayed after created.

 

It is the same

[stas]

Use free form 

And put in variable formclass instead form

protected

       FName:TUniFormClass;

 

procedure TFmain.UniFrameCreate(Sender: TObject);

begin

      FName:=TForm1;    

end;

 

procedure TFmain.btnAddClick(Sender: TObject);

begin

  TUniFormClass(FName).Create(UniApplication).ShowModal(showcallback);

end;

[yxzzjg]

 

Use free form 

And put in variable formclass instead form

protected

       FName:TUniFormClass;

 

procedure TFmain.UniFrameCreate(Sender: TObject);

begin

      FName:=TForm1;    

end;

 

procedure TFmain.btnAddClick(Sender: TObject);

begin

  TUniFormClass(FName).Create(UniApplication).ShowModal(showcallback);

end;

 

 

 

thank you，OK