在 Delphi 中打开 ComboBox 列表时如何使 SearchBox 可见

Question

我正在使用 Delphi 10 Seattle 创建多设备软件 (Win32) (Firemonkey)。 仅当列表显示在 ComboBox 中时，如何显示 SearchBox。 我用 ListBoxItems 在代码中填充 ComboBox。请参阅下面的示例。 现在 SearchBox 显示在关闭的 ComboBox 上。

procedure AddItems;
var
  SearchBox: TSearchBox;
  Item: TListBoxItem;
begin
  ComboBox.Items.Clear;
  SearchBox := TSearchBox.Create(ComboBox);
  SearchBox.Align := TAlignLayout.Contents;
  SearchBox.Parent := ComboBox;
  SearchBox.Visible:=True;
  Item := TListBoxItem.Create(ComboBox);
  Item.Parent := ComboBox;
  Item.Text := 'Item 1';
  Item := TListBoxItem.Create(ComboBox);
  Item.Parent := ComboBox;
  Item.Text := 'Item 2';
end;

Answer 1

使用 TComboBox 事件OnPopup & OnClosePopup。

将 ScrollBox 声明移动到私有表单（或框架）部分并在OnCreate 表单事件（或框架构造函数）中创建它。

type
  THeaderFooterForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FSearchBox: TSearchBox;
  end;

procedure THeaderFooterForm.FormCreate(Sender: TObject);
begin
  FSearchBox := TSearchBox.Create(nil);
  FSearchBox.Align := TAlignLayout.Contents;
  FSearchBox.Parent := ComboBox;
  FSearchBox.Visible:=False;
end;

procedure THeaderFooterForm.ComboBoxClosePopup(Sender: TObject);
begin
  FSearchBox.Visible:=False;
end;

procedure THeaderFooterForm.ComboBoxPopup(Sender: TObject);
begin
  FSearchBox.Visible:=True;
end;