TMainmenue: Hint wird nicht angezeigt.

[Go2EITS]

@Alle
In das Projekt Delphi Cleaner habe ich ein TMainmenue eingefügt. Die User wollen ein Hint dazu sehen.

Ich habe die Hints enabled und den Text zugewiesen.
Porblem: Jedoch erscheinen die Hints des TMenues nicht. (Source mit D7 und TD2006 compiliert). Ist eine Eigenschaft zu setzten die nicht im Eigenschaftenfenster zu sehen ist? Oder bin ich einem Bug auf der Spur?

Geht es bei jemandem?

Beste Grüße an die DP!
Go2EITS

[Balu der Bär]

Imho kannst du in einem TMainMenu keine Hints anzeigen. Du könntest aber eine StatusBar in dein Programm integrieren und diese mit dem MainMenu verknüpfen, dann wird der Hint-Text dort angezeigt.

[Go2EITS]

@Balu der Bär
Danke für Deine schnelle Antwort. Eine gute Idee!
(In den Eigenschaften ist ein Hinteintrag schon möglich, die Eigenschaft Showhint fehlt dagegen.)
Ich sehe mir die Eigenschaften an: Ein "MouseoverMenueeintrag" sehe ich leider nicht.
Die Eigenschaften sind recht dürftig. Mit "Onclick" könnte ich die Daten in einem Panel anzeigen, aber da ist dann die Aktion leider schon ausgeführt.

[Balu der Bär]

Zitat von Go2EITS:

In den Eigenschaften ist ein Hinteintrag schon möglich, die Eigenschaft Showhint fehlt dagegen.

Richtig, diese Property Hint gilt aber AFAIR nicht für das MainMenu selbst, sondern z.B. dann wenn ich z.B. einen ToolButton mit dem MainMenu verknüpfe, trägt dieser das Hint welches man beim MainMenu eingestellt hat.

[Go2EITS]

Und nu? Das Problem besteht weiterhin.

[Flocke]

Sieh dir mal das Ereignis "Application.OnHint" an. Entweder kannst du es im Sourcecode zuweisen oder du musst ein AppEvents-Objekt benutzen.

[Go2EITS]

@Flocke
danke für den Hinweis: In der Delphi Hilfe bin ich dank Deines Hinweises fündig geworden: Application.OnHint
Ich glaube, dass ist es. Das muss ich mir genau ansehen, wie ich das in meinem Projekt umsetzte.

Vielen Dank!
Go2EITS

[Flocke]

Normal etwa so:

Delphi-Quellcode:

// Oben im Hauptformular
type
  TMainForm = class(TForm)
  // ...
  public
    procedure DisplayHint(Sender: TObject);
  end;

// Implementierung
procedure TMainForm.DisplayHint(Sender: TObject);
begin
  if Application.Hint <> '' then
  begin
    StatusBar.SimplePanel := True;
    StatusBar.SimpleText := Application.Hint;
  end
  else
    StatusBar.SimplePanel := False;
end;

// Zuweisung
procedure TMainForm.FormCreate(Sender: TObject);
begin
  // ...
  Application.OnHint := DisplayHint;
  // ...
end;

[Go2EITS]

@Flocke
Danke Flocke!
Wirklich ein vorbildiches Beispiel, mit Declaration, Implementation und Aufruf.
Das bekomme ich sogar mal in meinen Code rein.

Kleine Frage: Wieso "StatusBar.SimplePanel := True;" und dann False? Die Statusbar wird doch immer angezeigt, oder?

[Luckie]

Weil das nur funktioniert, wenn die Eigenschaft SimplePanel der Statusbar auf True steht.