ShowModal,DialogBox,ShowMessage 등 떠 있을 때 폼 Disable 막기

ShowModal,DialogBox,ShowMessage 등 떠 있을 때 폼 Disable 막기

728x90

 

 

 

type

TForm1 = class(TForm) ...

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject)

private

procedure WMEnable(var Msg: TMessage); message WM_ENABLE;

end;

 

implementation

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled:= False;

EnableWindow(Handle, True);

end;

 

procedure TForm1.WMEnable(var Msg: TMessage);

begin

if Msg.wParam = 0 then

begin

Timer1.Enabled:= True;

end;

end;

 

end;