如何在 TForm 的边界之外显示控件（例如 TListbox）

Question

如何在运行时显示超出父窗体边界的列表框：

图像是在设计时单击列表框时从 IDE 获取的。我想在运行时实现这个效果。

Answer 1

您不能真正在父窗体之外直观地扩展控件。但是您可以通过为该控件创建一个单独的无边框窗体并在第一个窗体上部分显示该辅助窗体来实现该效果：

这里Form1是一个主表单，下面是OnClick处理程序Button1：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(nil);
  try
    Form2.Left := ClientOrigin.X + 140;
    Form2.Top := ClientOrigin.Y + ClientHeight - 20;
    Form2.ShowModal;
    Edit1.Text := IntToStr(Form2.ModalResult);
  finally
    Form2.Free;
  end;
end;

由于第二种形式 (Form2) 与 Form1 不相关（子 - 父明智），我们必须将其位置作为屏幕像素，但仍相对于 Form1。因此我们使用Form1.ClientOrigin（`Form1 客户区顶部和左侧作为屏幕坐标）作为参考。

保存TListBox 的第二个表单Form2 具有以下属性设置

BorderStyle = bsNone
KeyPreview = True (to catch `Enter` key)

它有OnKeyUp事件处理程序，写成

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
    ModalResult := ListBox1.ItemIndex;
end;