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

Question

How can I display a Listbox beyond the borders of the parent Form at runtime:

The image is obtained from the IDE when clicking on the listbox in design time. I would like to achieve this effect at runtime.

Answer 1

You can not really visually extend the control outside of the parent form. But you can achieve the effect by creating a separate borderless form for this control and display this secondary form partly over the first form:

Here Form1 is a main form, with following OnClick handler for 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;

Since the second form ( Form2 ) is not related (child - parent wise) to Form1 we must give its location as screen pixels, but still relative to Form1 . Therefore we use the Form1.ClientOrigin (`Form1 client area top and left as screen coordinates) as reference.

The second form, Form2 that holds the TListBox , has following property settings

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

and it has the OnKeyUp event handler written as

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