Form show modal no fireMonkey Android - Delphi XE7
var frmNovo: TFormNovo; begin frmNovo := TFormNovo.Create(self); frmNovo.ShowModal( procedure (ModalResult: TModalResult) begin frmNovo.DisposeOf; end );
var Dlgagenda:Tfrm_agenda; begin Dlgagenda := Tfrm_agenda.Create(self);
Dlgagenda.ShowModal( procedure(ModalResult: TModalResult) begin //E executado quando muda o Modalresult do formulario if ModalResult = mrOk then Begin ShowMessage('teste'); Dlgagenda.DisposeOf; End; end );
Não funciona. Da o seguinte erro:
ResponderExcluirThere is no overloaded version of 'ShowModal' that can be called with these arguments
var
ResponderExcluirDlgagenda:Tfrm_agenda;
begin
Dlgagenda := Tfrm_agenda.Create(self);
Dlgagenda.ShowModal(
procedure(ModalResult: TModalResult)
begin
//E executado quando muda o Modalresult do formulario
if ModalResult = mrOk then
Begin
ShowMessage('teste');
Dlgagenda.DisposeOf;
End;
end
);