Ich habe mehrere Buttons mit Style bsSplitButton. Bei klick auf den Button soll das DropDownMenu öffnen, genau so, als wenn man auf den Pfeil klickt. Die Buttons liegen auf verschiedenen FlowPanels. Insgesamt liegt alles auf einem Frame.
Mein folgender Quellcode erfüllt meine Anforderungen! Ich verstehe aber nicht, warum aPoint.x = 0 und nicht = (Sender as TButton).Left gesetzt werden muss. Kann mir Jemand meinen Quellcode erklären?

markieren

Delphi-Quellcode:

procedure TFrameListe.ButtonImExportClick(Sender: TObject);
var
  aPoint: TPoint;
begin
  aPoint.X:= 0; // (Sender as TButton).Left;
  aPoint.y:= (Sender as TButton).top+(Sender as TButton).Height;
  aPoint:= (Sender as TButton).ClientToScreen(aPoint);
  (Sender as TButton).DropDownMenu.PopUp(aPoint.X, // -(Sender as TButton).Left, // ???
                                         aPoint.Y);
end;

Könnte es sein, daß (Sender as TButton).top = 0 ist? In dem Fall wäre der Popup-Punkt die rechte untere Ecke des Buttons.

Bezogen auf den Button entsprechen die Koordinaten (0,0) der linken oberen Ecke. Mittels (Sender as TButton).ClientToScreen(aPoint) werden die Button-relativen Koordinaten in Bildschirmkoordinaten umgerechnet. Die Left- und Top-Werte des Buttons beziehen sich aber auf das übergeordnete Control. Deswegen gehören die hier nicht rein.

Jetzt hat es klick gemacht, in meinem Gehirn.
Bei (Sender as TButton).ClientToScreen(aPoint) übergebe ich Koordinaten vom Button. Da ich die linke obere Ecke des Buttons benötige, übergebe ich 0,0.
Unglaublich, das hat mich mehrere Stunden gekostet. Das Menü ist permanent auf dem Bildschirm herumgehüpft und wollte nicht in die linke untere Ecke des Buttons.
Guten Rutsch ins neue Jahr!