FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
ShowModal Unigui
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.
__________________
Saluda Atte Neeruu!!! :) |
#2
|
|||
|
|||
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" Código:
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; Código:
procedure ugSiNo(const texte:string; callBack:TModalCallBack); var f:TfrmUGSiNo; begin f:=TfrmUGSiNo(MainModule.GetFormInstance(TfrmUGSiNo)); f.ModalCallBack:=callBack; f.ShowModal; end; Código:
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; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Instalacion Unigui | Skey | Internet | 0 | 08-12-2012 23:29:52 |
Que Paso con UniGui? | Neeruu | Delphi para la web | 10 | 24-07-2012 22:43:25 |
UniGUI - Delphi XE | passmaker | Varios | 5 | 03-02-2012 16:43:27 |
uniGUI | cacu | OOP | 5 | 28-09-2011 15:42:06 |
UniGUI o ExtPascal | lmir | Internet | 2 | 09-07-2011 00:33:04 |
|