show a modal form and process messages. 1

[DelphiAaron]

is it possible to show a modal form but still allow the locked form underneath to process messages ?.

Aaron

 

[whosrdaddy]

why would you need this?

anyway, easiest way to do this is something like this:

(quick and dirty)

procedure frmMain.ShowDialog;
var DlgClosed; // global var to detect dialog closure
begin
...
 DlgClosed := False;
 Enabled := False; // disable form to prevent mouse clicks
 frmDialog.show; //(and not showmodal)
 repeat
  Application.ProcessMessages;
  Sleep(20); // prevent 100% cpu
 until DlgClosed; // flag must be set by frmDialog (ie OnClose event)
 Enabled := True;
...
end;

/Daddy

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[DelphiAaron]

my reason is that i use the actionmanager to control database buttons and when your playing with data on a modal form the buttons on the main form dont change till you close the modal form.

Aaron

 

[DelphiAaron]

the above code is pointless if its not showmodal.

the main form still processes messages if not modal.

Aaron

 

[earthandfire]

Just a thought - pass the dialog box a refrerence to the main form, then you can access whatever methods you want on the main form from the dialog. I don't have Delphi on this machine so, unfortunately I can't post a code sample


Hope this helps

 

[whosrdaddy]

Aaron, offcourse it still processes messages.
It's the enabled property that should prevent a user of changing anything on the main form...

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!