Delphi 定制自己的下拉控件，無焦點彈出新窗口

最新推荐文章于 2023-11-03 07:51:21 发布

zzj227

最新推荐文章于 2023-11-03 07:51:21 发布

阅读量2.1k

点赞数

分类专栏： Windows 編程文章标签： delphi integer function border forms interface

本文链接：https://blog.csdn.net/zzj227/article/details/747804

版权

本文介绍如何在Delphi中自定义一个下拉控件，该控件以弹出窗口形式显示，弹出时不改变当前活动窗口，保持焦点。通过继承TForm并处理WM_ACTIVATE消息，实现了一个允许鼠标键盘操作而不会使其他窗口失去焦点的弹出窗口。

摘要由CSDN通过智能技术生成

Delphi 控件中，沒有找到合適的選擇控件，能夠提供較多信息，而不緊緊是下拉列表提供的單個列信息，

下面的代碼中，實現了一個彈出對話框，彈出時，沒有改變當前活動窗口，從某种意義上說，算是沒有改變焦點，並且用鼠標鍵盤拖拉控件，均不會讓別的窗口變爲非活動窗口, Delphi6 實現。

// PopupWndBase 是一個基本的框架，本身就是提供一個下拉窗口，需要從其繼承實現具體的應用

// PopupWndBase.dfm

object KPopupWndBase: TKPopupWndBase
Left = 228
Top = 140
Width = 259
Height = 186
Caption = 'KPopupWndBase'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
end

// PopupWndBase.pas

unit PopupWndBase;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, math, Consts;

type
TKPopupWndBase = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
private
    FParentWindow:HWND;