ShowModal Unigui

[Neeruu]

Hola a todos...

Necesito encontrar la forma de emular el ShowModal en las Unigui...
Se que hay un ejemplo que muestra como abrir mensajes y recuperar un respuesta... pero lo que yo necesito es mostrar un formulario y recuperar la respuesta de ese form cuando se cierra.

Al ejemplo no lo entiendo mucho, capaz si alguien con mas experiencia puede explicarme le encuentre la vuelta para lo que necesito.

Saludos.

[cecam]

Hoooola!!

Se trata de pasar un evento al form, de forma que, al cerrarse lo ejecute. Por ejemplo un form que no de a escoger "Sí" o "No"

type
  TModalCallBack = procedure(ModalResult: TModalResult) of object;

  TfrmUGSiNo = class(TUniForm)
    btnSi: TUniBitBtn;
    btnNo: TUniBitBtn;
    procedure si(Sender: TObject);
    procedure no(Sender: TObject);
    procedure UniFormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
    ModalCallBack:TModalCallBack;
  end;

procedure TfrmUGSiNo.UniFormClose(Sender: TObject; var Action: TCloseAction);
begin
  if   Assigned(ModalCallBack)
  then ModalCallBack(ModalResult);
end;

procedure TfrmUGSiNo.si(Sender: TObject);
begin
  ModalResult:=mrYes;
end;

procedure TfrmUGSiNo.no(Sender: TObject);
begin
  ModalResult:=mrNo;
end;

Podrías tener una función similar a esta

procedure ugSiNo(const texte:string; callBack:TModalCallBack);
var
  f:TfrmUGSiNo;
begin
       f:=TfrmUGSiNo(MainModule.GetFormInstance(TfrmUGSiNo));
       f.ModalCallBack:=callBack;
       f.ShowModal;
end;

Y en tu formulario principal, la llamada sería algo así:

procedure TMainForm.UniSpeedButton5Click(Sender: TObject);
begin
  ugSiNo('Que escoges?',_sino);
end;

procedure TMainForm._sino(mr:TModalResult);
begin
  if   mr=mrYes
  then MessageDlg('Si', mtInformation, [])
  else
  if   mr=mrNo
  then MessageDlg('No', mtInformation, [])
  else MessageDlg('Cancela', mtInformation, []);
end;

Saludos!