Delphi中自定义组合框的下拉列表在合并后立即关闭

Question

我一直在寻找一种在默认组合框中使用RichtText的简单方法，但一无所获。所以我写了这个小Delphi（7）组件，到目前为止它还在工作。

工作原理：我调用"init"将默认组合框中的"Edit"窗口替换为运行时创建了RichEdit。"大小"取自"编辑"，"编辑"最终被隐藏。包括一些用于更改检测等的事件处理程序

问题：如果我单击下拉列表中的一个项目，文本将显示在RichEdit中。如果在RichEdit中输入了一些文本，并且再次按下下拉按钮，下拉列表将在下一刻打开和关闭。单击几次后，列表仍然开放，并按预期工作。每次我单击列表并再次更改RichEdit时，都会发生同样的情况。

也许我必须给combobox发一些信息来解决这个问题？

到目前为止，我还没有在网上找到任何解决方案。也许你有个主意。

谢谢你的帮助！

unit RichTextComboBox;
interface
uses  SysUtils, Classes, Controls, StdCtrls, Windows, Messages, forms, Graphics, ComCtrls;
type
    TRichTextComboBox = class(TComboBox)
    private
        FOnChange     :TNotifyEvent;
        EditHandle :Integer;
        procedure proc_FOnComboChange(Sender: TObject);
    protected
    public
        Rich :TRichEdit;             // accessable from outside
        constructor Create(AOwner: TComponent); override;
        destructor  Destroy; override;
        procedure   Init;            // replace Edit in combobox with RichEdit
    published
    end;
procedure Register;
implementation

constructor TRichTextComboBox.Create(AOwner: TComponent);
begin
    inherited Create(AOwner);
end;

// click in Combo-Drop-Down-List
procedure TRichTextComboBox.proc_FOnComboChange(Sender :TObject);
begin
    if Rich.Text <> Items.Strings[ItemIndex] then begin
        Rich.Text:=  Items.Strings[ItemIndex];
    end;
    if assigned (FOnChange) then FOnChange(sender);
end;

procedure Register;
begin
    RegisterComponents('TEST', [tRichTextComboBox]);
end;

destructor TRichTextComboBox.Destroy;
begin
    if Rich <> nil then begin
        RemoveControl(rich);
        Rich.destroy;
    end;
    inherited Destroy;
end;

// Replace "Edit" with "RichEdit" in ComboBox
//
procedure TRichTextComboBox.init;
var       h      :integer;
          rect   :trect;
          wndpos :TWindowPlacement;
begin
    h:= FindWindowEx(
        self.Handle,
        0,              // handle to a child window
        'Edit',         // class name
        nil
    );
    Rich:= TRichEdit.create(self);
    rich.Parent:= self;
    if h <> 0 then begin
        EditHandle:= h;
        GetWindowRect(h, rect);
        // configure RichEdit
        GetWindowPlacement(h, @wndpos);        // RichEdit with position and size of Edit
        rich.BorderStyle:= bsNone;
        rich.Text:= self.Text;
        rich.Font.Style:= [fsbold, fsItalic];
        rich.Top:=   wndpos.rcNormalPosition.top;
        rich.Left:=  wndpos.rcNormalPosition.Left;
        rich.Width:= rect.Right - rect.Left;
        rich.Height:= rect.Bottom-rect.Top;
        rich.WantReturns:= false;              // just one line
        rich.WordWrap:= false;                 // just one line
        rich.ParentColor:= true;               // just one line
        rich.Visible:= true;
        showwindow(h, sw_hide);                // hide Edit
    end;
    // if drop-down-combo-list is clicked
    // change the string of the RichEdit
    FOnChange:=     self.OnChange;             // save original OnChange of ComboBox
    rich.OnChange:= FOnChange;
    self.OnChange:= proc_FOnComboChange;
end;
end.

Answer 1

最后我找到了解决方案：-）

RichEdit持有Focus，这导致在RichEdit中输入s.th.后下拉列表不会保持打开状态。此过程会在组合框打开之前将焦点设置回组合框。所以一切都如预期的那样。

---

要插入的代码：

protected之后输入：

procedure DropDown; override;

程序如下：

procedure TRichTextComboBox.DropDown;
begin
  Self.SetFocus;
  inherited DropDown;
end;

---

我更喜欢这种方法，因为我不想处理我们可以在很多页面上阅读的OwnerDraw问题。（有些东西仍然缺失：向上键/向下键…）