MainMenu Help

[DaBass]

Also, ich habe folgendes Problem, bzw. folgende Frage:

Ich habe ein MainMenu mit X-Menupunkten darin.

jetzt möchte ich, dass wenn ein Menü angewählt wird, dass in meiner StatusBar einen kleinen Help text erscheint.

Da die einzelnen Menüpunkte kei OnMouseOver Ereignis haben, weiss ich nicht wie ich das tun soll... kann mir jemand weiter helfen??

[neolithos]

Application.OnHint setzen (alternativ TApplicationEvents verwenden)

und dort drinnen die Appliction.Hint eigenschaft in die StatusBar setzen.

[r_kerber]

Hallo DaBass,
zunächst trägst Du für jeden Menüpunkt etwas in die Eigenschaft Hint ein. Dann setzt in der Statusbar, die Eigenschaft AutoHint auf true.

[DaBass]

ich schaff das irgendwie nicht..

wenn ich die eigenschaften so einstelle passiert nichts.

liegt das daran, das ich in der Statusbar Panels habe??
schliesslich kann ich nirgends definieren, in welchem Panel es angezeigt werden soll...

es soll in dieses panel geschrieben werden:
StateBar.Panels[1].Text

[Luckie]

Das geht nur, wenn die Statusbar keine Panels hat, sondern der Stil auf SimpleText steht.

[DaBass]

habe in der zwischenzeit schon eine Lösung gefunden, die auch mit Panels funktioniert:

Delphi-Quellcode:

type
  TmainForm = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure DisplayHint(Sender: TObject);
  end;

var
  mainForm: TmainForm;

implementation


procedure TmainForm.Create(Sender: TObject);
begin
  ...
  Application.OnHint := DisplayHint;
  ...
end;

procedure TmainForm.DisplayHint(Sender: TObject);
begin
  StateBar.Panels[1].Text := GetLongHint(Application.Hint);
end;

Die Eigenschaft ShowHint von TmainForm muss zusätzlich noch auf True gesetzt werden.
Danach kann man bei Beliebigen Elementen die Eigenschaft Hint := 'help' setzen und es wird angezeigt.

@luckie, r_kerber & neolithos: Trotzdem herzlichen Dank!

[tuxic]

Zitat von r_kerber:

Hallo DaBass,
zunächst trägst Du für jeden Menüpunkt etwas in die Eigenschaft Hint ein. Dann setzt in der Statusbar, die Eigenschaft AutoHint auf true.

kleiner Nachtrag für die Nachwelt
die Eigenschaft ShowHint von der entsprechenden Form muss auf true sein...