Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Toolbar messages (https://www.delphipraxis.net/113113-toolbar-messages.html)

ghost007 2. Mai 2008 22:25


Toolbar messages
 
Hallo,
ich hab mal die messages die man an eine Toolbar schicken kann durchgeschaut.
Kann man irgendwie einen speziellen button per sendmessages drücken ?

MfG - Ghost007

Bernhard Geyer 2. Mai 2008 22:47

Re: Toolbar messages
 
Zitat:

Zitat von ghost007
Hallo,
ich hab mal die messages die man an eine Toolbar schicken kann durchgeschaut.
Kann man irgendwie einen speziellen button per sendmessages drücken ?

MfG - Ghost007

Wenn du die x/y-Position des Toolbuttons weißt. Oft ist nur die Toolbar als GDI-Objekt erreichbar und die Toolbutons nur gezeichnete Elemente. Deshalb müsstest du WM_MOUSE-Klick Events simulieren.

ghost007 2. Mai 2008 23:20

Re: Toolbar messages
 
Zitat:

Zitat von Bernhard Geyer
Wenn du die x/y-Position des Toolbuttons weißt. Oft ist nur die Toolbar als GDI-Objekt erreichbar und die Toolbutons nur gezeichnete Elemente. Deshalb müsstest du WM_MOUSE-Klick Events simulieren.

Hm,
wenn ich dieses weg gehe, dann kann ich das auf keinen fall "blind" machen. Sprich wenn das programm minimiert ist.

MfG - Ghost007

toms 3. Mai 2008 07:53

Re: Toolbar messages
 
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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz