Showhint på et menuitem i en mainmenu?

Put en TStatusBar på din form og indsæt denne kode:

  private
    { Private declarations }
    procedure DisplayHint(Sender: TObject);
  public
    { Public declarations }
  end;

implementation

procedure TForm1.DisplayHint(Sender: TObject);
begin
  StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := DisplayHint;
end;

Du skal sætte showhint til true...

der er desværre ikke nogen showhint på et menuitem i en mainmenu.