Ver Mensaje Individual
  #1  
Antiguo 27-06-2003
jdiazan jdiazan is offline
Miembro
 
Registrado: jun 2003
Ubicación: Málaga
Posts: 33
Reputación: 0
jdiazan Va por buen camino
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.
Responder Con Cita