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?
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;