FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Cómo cerrar una forma en el OnShow Event?
Saludos...
Tengo una forma en la que hago una serie de validaciones en el evento OnShow (ejem. Abrir una serie de query's) y quisiera que, en caso de no cumplirse alguna de ellas cancelar dicho evento y retornar a la forma que hizo la llamada original. He intentado con el Close, Abort e inclusive el Cancel, pero ninguno de ellos me arroja resultados satisfactorios, pues, en el caso del Close, me arroja un error en donde me indica que es imposible modificar el atributo Visible en un OnShow o un OnHide Event... Anexo parte del código para iilustrar mejor la situación y reducir los esfuerzos de entendimiento {********************************} procedure TfrmExpedienteAduanal.FormShow(Sender: TObject); begin inherited; Caption := rSoftwareData.sNameWithVersion + ' | Expedientes'; with dmExpAduanal do if not ActiveDBISAMSession(SessionExpAduanal, rCompanyData.sTemporalPath) or not OpenDBISAMConnection(dbExpAduanal, rCompanyData.sApplDataPath, True) or not OpenDBISAMConnection(dba2, rCompanyData.sA2DataPath, True) or not OpenExpedienteAduanal then Close else sSearchField := 'idExpediente'; end; {********************************} Agradezco la ayuda que me puedan suministrar |
|
|
|