|
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.
|