TToolButton mit tbsTextButton und tbsDropDown?

[uligerhardt]

Hallo zusammen!

Kennt ihr eine Möglichkeit, einem TToolButton (in D2007) zum Text-Button und DropDown-Button gleichzeitig zu machen? Die VCL bietet mir entweder tbsTextButton oder tbsDropDown an, aber nicht beides. Hier scheint eine Lösung mit Patchen der VCL-Sourcen zu sein, aber das mache ich nicht. Aber ich schließe daraus, dass die Common-Controls-Toolbar das prinzipiell kann.

Edit: Style auf tbsTextButton setzen + DropdownMenu zuweisen liefert funktionell genau das, was ich will: Ein Button mit Text und wenn man draufklickt (auf der ganzen Fläche, nicht nur im rechten Teil), poppt ein Menü auf. Was fehlt, ist der kleine Pfeil an der rechten Seite.

Noch'n Edit: Die folgende Prozedur scheint's zu tun:

Delphi-Quellcode:

procedure Test(AToolBar: TToolBar; AIndex: Integer);
var
  Button: TTBButtonInfo;
begin
  FillChar(Button, SizeOf(Button), 0);
  Button.cbSize := SizeOf(Button);
  Button.dwMask := TBIF_STYLE;
  Button.fsStyle := Button.fsStyle or TBSTYLE_DROPDOWN or BTNS_SHOWTEXT;
  AToolBar.Perform(TB_SETBUTTONINFO, AIndex, Longint(@Button));
end;

Der einzige Schönheitsfehler ist, dass der Pfeil beim Klicken optisch vom restlichen Button abgetrennt ist. Damit kann ich leben.

Doch noch nicht ganz: Zum einen muss man die Routine alle Naselang aufrufen, weil einem die VCL alles wieder plattmacht, und zum anderen ist es schwierig, eine gute Stelle für den ersten Aufruf zu finden. OnCreate oder OnShow funzen z.B. nicht, ein Aufruf in einem expliziten Buttonklick schon.