I think this is what you need
var WindowList: Pointer ;
begin
WindowList := DisableTaskWindows(Form2.Handle) ;
ProcessThatUpdatesForm2WithProgressInfo;
EnableTaskWindows(WindowList) ;
end ;
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Derricutt, Mark
Sent: Monday, 20 December 1999 2:10 pm
To: Multiple recipients of list delphi
Subject: [DUG]: Modal stuff...
Is it possible to show a form as modal, but continue execution in the same
program block without waiting for ModalResult to be set?
I want to do something like:
procedure TForm2.DoSomething;
begin
ShowModal;
ProcessThatUpdatesForm2WithProgressInfo;
ModalResult := mrOk;
end;
Normally I would just use show, but I don't want my app to accept focus
until it's finnished, is there anyway to get a modal type state without
using ShowModal?
Mark
--
Mark Derricutt, PB Power NZ Ltd (http://www.pbpower.net)
Now Playing... Lightmare - The Fool
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
