这样创建的窗口除非用户主动点击,否则不会获得焦点。
TForm1 = class(TForm)
private
protected
procedure SetZOrder(TopMost: Boolean); override;
procedure CMShowingchanged(var Message: TMessage); message CM_SHOWINGCHANGED;
public
end;
procedure TForm1.CMShowingchanged(var Message: TMessage);
begin
if not Visible
then inherited
else ShowWindow(Handle, SW_SHOWNOACTIVATE);
end;
procedure TForm1.SetZOrder(TopMost: Boolean);
begin
// inherited;
end;