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

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;