1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.WndProc(var m: TMessage);
begin
inherited;
case m.Msg of
WM_MOUSEACTIVATE:
begin
m.Result:=MA_NOACTIVATE;
exit;
end;
WM_ACTIVATE:
begin
m.Result:=MA_NOACTIVATE;
end;
end;
end;
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_NOACTIVATE);
或
procedure CreateParams(var Params: TCreateParams); override;
implementation
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_NOACTIVATE;
end;
设置窗体Enabled属性为False可以屏蔽所有鼠标、键盘事件。