Dropdown-Menu bei ToolButton.Click

[m.fuchs]

Hallo,

ich habe einen ToolButton mit Style := tbsDropDown. Wenn ich nun auf den rechte Bereich des Buttons klicke (den mit dem Pfeil) erscheint das DropDown-Menü auch brav.
Nun sind Benutzer bekanntermaßen dumm und erwarten auch beim Klick auf den Hauptbereich des Buttons dieses Verhalten. Gibt es da irgendeine Option (die ich nicht gefunden habe)?


Michael

[theo]

Implementier's doch einfach auf OnClick

Code: Alles auswählen

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  ToolButton1.DropdownMenu.PopUp;
end;

[m.fuchs]

Implementier's doch einfach auf OnClick

Jo, das hab ich auch schon. Dachte nur dass es vlt. eine Option gibt.

Als Erweiterung zu deinem Code hier meiner. Verhält sich dann bei der Positionieren genau so, wie beim Drop-Down-Pfeil:

Code: Alles auswählen

procedure TForm1.ToolButton1Click(Sender: TObject);
var
  PopupPoint: TPoint;
begin
  PopupPoint := ToolButton1.ControlToScreen(Point(0, ToolButton1.Height)) ;
  ToolButton1.DropdownMenu.PopUp(PopupPoint.X, PopupPoint.Y);
end;

mf