FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como salir del create con modalresult
Hola a todos:
Tengo un gran problema, cuando creo una ficha, quiero o en el create o en el activate poder salir de la ficha pero no tengo forma ocea.. si hago esto no sale With tform1.create( application ) do begin case showmodal of mrok:tal y tal; mryes:tal y tal; end; free; end; ahora en el create de la tform1 esto por ejemplo claro. constructor tform1.create( owner : tcomponent ) Begin inherited create( owner ); // llamo a un procedimiento //ahora me salgo modalresult := mrok; //ó Close { se queda la ventana mostrandose pero no sale como puedo hacer que salga en este punto } end; Muchas gracias de antemano...
__________________
Juan Díaz Domain, S.A. |
|
|
|