Delphi 彈出新窗口，不獲得系統焦點

最新推荐文章于 2022-04-27 18:05:33 发布

原创最新推荐文章于 2022-04-27 18:05:33 发布 · 3.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #constructor #office #class #api

Windows 編程专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一种基于Delphi的自定义提示窗口实现方法，该方法通过继承TForm类并覆盖特定的消息处理来创建一种始终位于顶层且不会自动获得焦点的窗口。这种窗口非常适合用于显示丰富的提示信息。

功能描述

彈出一個窗口, 彈出時沒有獲得輸入焦點, 直到用戶主動切換到本窗口。可以繼承該類，建立提示窗口，提供豐富信息，而不是不限於Tooltip提供的簡單文字信息。例如類似Office 助手精靈提示窗口。純Window API 調用實現的Window，但是不能利用Delphi Form 窗口資源. 本類繼承自TForm，增加少許代碼，就可以利用能夠Delphi Form, 建立各種提示窗口了.

技術點

1, 繼承自TForm類

2, 增加對Delphi自定義消息CM_SHOWINGCHANGED的處理

3. 增加函數SetZOrder處理　BringToFront的調用

調用方法

可以 show(), showmodal(), visible := true/false

參考 procedure TCustomForm.CMShowingChanged(var Message: TMessage);

演示代碼
TKInfoBase = class(TForm)
private
    FMyShowed: Boolean;
    FFocusWhenShow: Boolean;
    FFocusWhenShowModal: Boolean;
    procedure SetFocusWhenShow(const Value: Boolean);
    procedure SetFocusWhenShowModal(const Value: Boolean);
protected
    procedure SetZOrder(TopMost: Boolean); override;
    procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
public
    property FocusWhenShowModal:Boolean read FFocusWhenShowModal write SetFocusWhenShowModal;
    property FocusWhenShow:Boolean read FFocusWhenShow write SetFocusWhenShow;
    constructor Create(AOwner:TComponent); override;
end;

procedure TKInfoBase.CMShowingChanged(var Message: TMessage);
begin
if FMyShowed then
    begin
      inherited;
      if not Visible then
        FMyShowed := False;
    end
else
    begin
      FMyShowed := True;
      ShowWindow(Handle, SW_SHOWNOACTIVATE);
    end;
end;

constructor TKInfoBase.Create(AOwner: TComponent);
begin
// 窗体屬性Visible = false
inherited;
FMyShowed := False;          // 內部控制變量
FormStyle := fsStayOnTop;    // 窗口一直處於最上層
FFocusWhenShow := false;     // 窗口Show時，不獲取焦點
FocusWhenShowModal := true; // 調用ShowModal時，窗口獲取焦點
end;

procedure TKInfoBase.SetFocusWhenShow(const Value: Boolean);
begin
FFocusWhenShow := Value;
end;

procedure TKInfoBase.SetFocusWhenShowModal(const Value: Boolean);
begin
FFocusWhenShowModal := Value;
end;

procedure TKInfoBase.SetZOrder(TopMost: Boolean);
begin
if (fsModal in FormState) then
    if FFocusWhenShowModal then inherited
    else
else
     if FFocusWhenShow then inherited;
end;