dsprata Posted September 11, 2015 Share Posted September 11, 2015 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 ? Link to comment Share on other sites More sharing options...
Sherzod Posted September 11, 2015 Share Posted September 11, 2015 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. Link to comment Share on other sites More sharing options...
dsprata Posted September 11, 2015 Author Share Posted September 11, 2015 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? Link to comment Share on other sites More sharing options...
Sherzod Posted September 11, 2015 Share Posted September 11, 2015 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.. Link to comment Share on other sites More sharing options...
dsprata Posted September 11, 2015 Author Share Posted September 11, 2015 It worked .Thanks for listening Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now