Callback Using Formshow( procedure(sender: TComponent; Result: Integer)

[asapltda]

What is the correct way to pass and receive values using TComponent when a form is displayed and receive parameters differently when closed?

 

What kind of object is received / sent in the sender parameter: TComponent, I get different values, as I can use

You could put the code in pascal

thank you

 

 

 

 

 

 

FPARAMETROSGENMVL.ShowModal(

    procedure(sender: TComponent; Result: Integer)

      var

      i:Integer;

   begin

     if Result = mrOk then begin

 

 

      end;

     if Result = mrcancel then begin

     end;

   end);

end;

[Farshad Mohajeri]

Sender contains Form object which its Show or ShowModal is called.

 

You can access Form's public objects using it.

 

Such as,

(Sender as TUniForm1).UniEdit1.Text;