您可以使用CreateParams覆盖方法。像这样:
在窗体中添加声明
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure TMyForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
Style := WS_POPUP or WS_BORDER;
ExStyle := WS_EX_TOPMOST or WS_EX_NOACTIVATE;
WndParent := 0;
end;
end;
|