Hola
Tengo un DataModule con una función que me crea un formulario Modal , luego
en ese formulario cuando puso el botón aceptar tiene que realizar una función del datamodule, esto lo estaba haciendo con ModalResult = mrOk, pero esta forma ya no vale pues me desaparece la ventana, y queria algo parecido pero que la ventana no desapareciera.
Pongo como estaba antes más o menos.
Código Delphi
[-]
procedure TDataModule.EjemploA;
begin
Form1 := TForm1.Create(self);
with Form1 do
begin
ShowModal;
if ModalResult = mrOk then
ProcedureEjemploB;
end;
end;
procedure TDataModule.ProcedureEjemploB;
begin
end;
el caso es que quiero cambier el ModalResult = mrOk por otra cosa, quizás una propiedad o algo que me diga lo mismo, pero de tal manera que la ventana no desaparezca y se quede ahí, de tal manera que pueda pulsar al botón una y otra vez para sacar informes según criterio del usuario.
Si la mejor forma de hacerlo es con propiedades, como no las he usado, me gustaria saber de que forma lo tengo que hacer, si hay otra forma mejor, pues con hacer esa también esta bien.
Saludos