Ver Mensaje Individual
  #2  
Antiguo 16-11-2007
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Reputación: 30
jhonny Va camino a la famajhonny Va camino a la fama
Suponiendo que el procedimiento ProcedureEjemploB; esta en una unidad distinta a la del datamodulo y a la del form modal podrias llamar el ProcedureEjemploB; desde el form modal y listo, quedando el datamododule asi:
Código Delphi [-]
procedure TDataModule.EjemploA;
begin
  Form1 := TForm1.Create(self);
  with Form1 do
  begin
     // Algunas cosas
    ShowModal;
    Release;
  end;
end;

Y en el OnClik del boton que Aceptar que esta en el Form modal asi:

Código Delphi [-]
  ProcedureEjemploB;

Eso si, dicho boton ya no debe tener el ModalResult := mrOk para que no se cierre, pero a cambio de eso tendras que idear un mecanismo para que el usuario cierre el formulario cuando no lo necesite mas (Podria ser un nuevo boton para cerrar) .
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/

Última edición por jhonny fecha: 16-11-2007 a las 18:26:01.
Responder Con Cita