Delphi ShowModal doesn't stop

[dsprata]

Hello , I'm using google translator .
I'm opening a form as ShowModal , however, after the call have other instructions that must be made so that the child form is closed , however , I call the child application form is not " paused " continuing . Anyone have any ideas ?

[Sherzod]

Hi,

 

Briefly, you should use the callback:

 

Try to analyze this example:

C:\Program Files (x86)\FMSoft\Framework\uniGUI\Demos\Desktop\Form Callback

Best regards.

[dsprata]

frmAtendentes.ShowModal;

if unModGeral.gCodigo <> '' then edCd_Problema.Text := unModGeral.gCodigo;

 

The second line have to go into a routine that step as a parameter in the ShowModal ?

 

example

 

frmAtendentes.ShowModal(ShowCallBack);

 

procedure TMainForm.ShowCallBack(Sender: TComponent; AResult:Integer);

begin

   if unModGeral.gCodigo <> '' then edCd_Problema.Text := unModGeral.gCodigo;

end;

 

Would it be this? There's no other way?

[Sherzod]

or:

frmAtendentes.ShowModal(
  procedure(Sender: TComponent; Result:Integer)
  begin
    if unModGeral.gCodigo <> '' then edCd_Problema.Text := unModGeral.gCodigo;
  end
);

Please, try to analyze all demos..

[dsprata]

It worked .

Thanks for listening