Thema: Delphi Mainmenu und Hints

Einzelnen Beitrag anzeigen

Benutzerbild von Sprint
Sprint

Registriert seit: 18. Aug 2004
Ort: Edewecht
712 Beiträge
 
Delphi 5 Professional
 
#5

Re: Mainmenu und Hints

  Alt 26. Okt 2004, 01:30
Zitat von Ghostwalker:
Ich sucher nach einer Menükomponente, bei der ich (Hauptmenüpunkte) ein event bekomme wenn ich drüberfahr, um z.B. zusätzliche Infos über den Hauptmenüpunkt zu geben.
Windows sendet die Nachricht WM_MENUSELECT an das Fenster zudem das Menü gehört. Das könnte dann so aussehen...
Delphi-Quellcode:
type
  TForm1 = class(TForm)
  ...
  private
    { Private-Deklarationen }
    procedure SubClassWndProc(var Message: TMessage);
  ...
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.WindowProc := SubClassWndProc;
end;


procedure TForm1.SubClassWndProc(var Message: TMessage);
begin

  if Message.Msg = WM_MENUSELECT then
  begin
    // Message.WParamLo
    // enthält die ID des Menüeintrages
  end;

  WndProc(Message);

end;
Ciao, Sprint.

"I don't know what I am doing, but I am sure I am having fun!"
  Mit Zitat antworten Zitat