pero si el botón no tiene la propiedad modalresult puesta.
Si ese no es el tema, el tema es que hago un ShowModal en el Datamodule, después espero a que pulse el botón y entonces tiene que hacer un código después del ShowModal y es llamar al otro procedure.
Código Delphi
[-]
Form1 := TForm1.Create(Self);
With Form 1 do
begin
ShowModal;
if (pulsa el botón) then
procedure B;
end;
El tema es que ahora donde pone (pulsa el botón) , tengo puesto if ModalResult = mrOk then
Y en el botón del formulario , hace comprobaciones , y si todo va bien , en código hago un ModalResult = mrOk.
Pero si no hago el ModalResult = mrOK dentro del código del botón, no ejecuta el procedure B.
Bueno lo que he hecho finalmente es hacer un pequeño ejemplo, en Delphi 6 , algo sencillo, esquematico, para explicarme mejor, voy a subir el código, lo añado. Lo llamo EjemploSimple.
A ver si alguien puede mirarlo.
Saludos