Hallo,

Ich bastle mir gerade folgende Komponente:
Ein "MenüButton", den ich anklicken kann, woraufhin eine Liste von weiteren Buttons über dem MenüButton erscheint. Von der Auswahl wähle ich nun einen aus.

Mein Problem: Die Liste der weiteren Buttons liegt auf einem Panel. Dieses Panel blende ich dann ein und aus.
Liegt der Menübutton dann später auf einem anderen Panel, so zeichnet er mir die ButtonListe nur bis zum oberen Rand des Panels auf dem der MenüButton liegt.

Nun habe ich zwei Möglichkeiten. Entweder ich Zeichne die Mnüliste auf die Form. Da habe ich jedoch das Problem, das ich der MenüButton nichts von der Form weiß, geschweige denn die richtige Position für die Menüliste.

Ich Könnte für die ButtonListe auch ne Form als Grundlage nehmen, da bliebe aber auch das Problem die Position zu finden an der ich die Form zeichnen muss.

Irgendwelche Vorschläge? Hat überhaupt jemand verstanden, was mein Problem ist?

Du könntest bei Links-Klick auf den Button ein Popupmenu aufpoppen lassen.
Und zwar an der Position, an der auch der Button liegt.
Das Popupmenu kümmert sich nicht um das Panel auf dem der Button liegt.
Ausserdem ändert es automatisch seine Position, falls es nicht vollständig auf den Screen passen würde.

zusammenfalten · markieren

Delphi-Quellcode:

procedure ShowControlPopupMenu(c: TControl; pm: TPopupMenu);
var
  p: TPoint;
begin
  Assert(Assigned(pm) and Assigned(c) and Assigned(c.Parent));
  p := Point(c.BoundsRect.Right, c.BoundsRect.Top);
  p := c.Parent.ClientToScreen(p);
  pm.Popup(p.x,p.y);
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
  ShowControlPopupMenu(Sender as TControl, PopupMenuFuerButton1);
end;