MainMenu Help

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