[Lazarus-es] mostrar form encima del principal
Paola Bruccoleri
pbruccoleri en adinet.com.uy
Lun Oct 8 13:15:25 CEST 2012
Hola todos..
hace tiempo tuve esta inquietud pero luego nunca lo experimenté y ahora
necesito hacerlo pero no lo logro.
Debo pedir una fecha al comenzar la aplicación, pero por estética, me
gusta que el form principal ya quede cargado y visible.
No lo hago en el .lpr porque sino se carga primero ese form de fecha y
luego el principal, por tanto, decidí hacerlo en el form ppal, en el
evento onshow.
procedure TfrmMain.FormShow(Sender: TObject);
var
VQuery: TZQuery;
loginfecha:TfrmFechaInicial;
begin
// se pide la fecha
loginfecha:= TfrmFechaInicial.Create(nil);
if loginfecha.showmodal = mrOk then
begin
FreeAndNIL(loginfecha);
end
else
Application.Terminate;
end;
Ese form de fecha tiene obviamente poca cosa: un dbedit para la fecha
(debe quedar en una tabla), un botón aceptar (con modalresult: mrOk) y
uno cancelar (mrCancel)
Si el usuario presiona CANCEL, yo quiero que la aplicación se cierre.
El problema es:
- no se muestra el form principal primero sino el de la fecha primero
- Si presiono aceptar en el form de la fecha, nunca valida esto: if
loginfecha.showmodal = mrOk then por tanto, la aplicacion siempre termina.
No creo que se pueda hacer con un spash porque la idea de los splash
(creo) es mostrar algún form q se muestre mientras se carga la aplicación.
Cómo podría solucionarlo?
muchas gracias!
More information about the Lazarus-es
mailing list