Hint mit ActivateHint anzeigen lassen

[bwolf]

Hi all,

ich will mir einen Hint von einem Label über die Prozedur "activateHint" anzeigen lassen.
Habe dazu folgenden Code:

Delphi-Quellcode:

procedure frmMain.Button1Click(Sender: TObject);
begin
   Application.ActivateHint(Point(label1.ClientOrigin.X+5,label1.ClientOrigin.y+5));
   Application.ProcessMessages;
end;

Leider passiert rein gar nichts, wenn ich den Button klicke.
Danke für eure Hilfe,
greets ben