anonimous callback

[AntonioCuomo]

j have these code:

procedure TUniForm_RapportiLavoro.UniSpeedButton3Click(Sender: TObject);
begin
if ABSTRapporti.State in dseditmodes then
           begin
             MessageDlg('Salva Rapporto di Lavoro', mtConfirmation, mbYesNo,
                  procedure(Sender: TComponent; Res: Integer)
                  begin
                         case Res of
                              mrYes : abstrapporti.post;
                              mrNo : abstrapporti.cancel;
                            end;
                   end);
           end;
ABSTRapporti.Close;
close;
end;

 

The dialog of messagge is open after then close of form Rapporti and the code of anonimous procedure not execute.

v. of unigui is 1.90.0.1506

 

[Sherzod]

10 minutes ago, acuomo said:

v. of unigui is 1.90.0.1506

Which edition are you using?

[AntonioCuomo]

unigui complete professional

[Sherzod]

12 minutes ago, acuomo said:

unigui complete professional

Can you please adjust your forum email address first?

 

[AntonioCuomo]

my e-mail is correct… why?

[AntonioCuomo]

j have resolve:

 

if ABSTRapporti.State in dseditmodes then
           begin
             MessageDlg('Salva Rapporto di Lavoro', mtConfirmation, mbYesNo,
                  procedure(Sender: TComponent; Res: Integer)
                  begin
                         case Res of
                              mrYes : begin
                                      abstrapporti.post;
                                      ABSTRapporti.Close;
                                      close;
                                      end;

                              mrNo : begin
                                      abstrapporti.cancel;
                                      ABSTRapporti.Close;
                                      close;
                                      end;
                            end;
                   end);

           end;

 

but not is elegant and correct

[Sherzod]

On 8/16/2019 at 4:12 PM, Antonio Cuomo said:

my e-mail is correct… why?

Please specify your registered email address.

[AntonioCuomo]

antonio.cuomo@mondoconsulenti.it