Mainmenu und Hints

[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.

Kennt Jemand sowas oder weiß jemand wie man das anpacken kann ?


Danke schon mal

[Luckie]

Menüs kennen keine Hints wie Schaltflächen oder so. Sie können nur einen Hinweistext in der Statusbar abzeigen. Stell diese auf SimpleText und setzte AutoHint auf True, wenn du dann einen Hinttext beim Menüentrag angibst, erscheint selbiger in der Statusbar.

[Ghostwalker]

Ich weiß..nur dummerweiße funktioniert das erst wenn ich auf einen Menüpunkt draufklicke..nicht wenn ich nur drüberfahr.


Irgendwie krankts an dem Teil hinten und vorn...

Dummerweise hab ich auch noch keine alternative Komponente gefunden.

[Luckie]

Bei mir geht das so wie beschrieben. Der Hiunttext kommt, wenn ich über den Menüpunkt fahre mit der Maus.

[Sprint]

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;

[jim_raynor]

Es gibt auch das Ereigniss TApplication.OnHint. Dort kann man auch Aktion ausführen, wenn zum Beispiel die Maus über einen Menüeintrag ausgewählt wurde oder einen Toolbutton bewegt wurde.

[Ghostwalker]

Das mit dem Menüpunktdrüberfahren (ohne das er angeclickt wurde) schein abhängig vom Windows-System zu sein. Bei mir tuts das nicht.

Aber ich hab das jetzt über die Komponente Toolbar2000 gelöst. Damit funktioniert das wunderbar.

Trotzdem Danke