Showmodal Result

[ariopax]

Hi

 

I have two From in Vcl ,In first Form i have a Button and an  Edit,In second Form  i have a Label and a Button,

I write in second form

procedure TForm2.Button1Click(Sender: TObject);
begin
  ModalResult := mrOK;
end;

And i first Form

procedure TForm1.Button1Click(Sender: TObject);
begin
  if form2.ShowModal=1 then
    Begin
         Edit1.Text:=Form2.Label1.Caption;
    End;
end;

How to i can do the procedure

 TForm1.Button1Click(Sender: TObject);

 in unigui?

 

 

Best Regards.

[Sherzod]

Hi,

 

Please see these demo projects:

..\FMSoft\Framework\uniGUI\Demos\Desktop\Form Callback\frm.dpr
..\FMSoft\Framework\uniGUI\Demos\Desktop\Form Anonymous Callback\frmCallback.dpr

Best regards.