Wenn der Button den Style tbsDropDown hat, kann wie folgt das Dropdown angezeigt werden
(aus der
VCL)
Vielleicht kann der Code so angepasst werden, dass ein Klick gesendet wird.
Delphi-Quellcode:
procedure SendDropdownMsg(Button: TToolButton);
var
Msg: TNMToolBar;
begin
FillChar(Msg, SizeOf(Msg), 0);
with Msg, hdr
do
begin
hwndFrom :=
Handle;
idFrom :=
Handle;
code := TBN_DROPDOWN;
iItem := Button.
Index;
end;
SendMessage(
Handle, WM_NOTIFY,
Handle, Longint(@Msg));
end;