Hint eines TEdit's per Tastendruck anzeigen

[[TP]Hawk274]

habe bereits herausgefunden das es sich um die HintMouseMessage aus der Klasse TApplication handelt.
Folgendermaßen rufe ich die Funktion auf:

Delphi-Quellcode:

var
  msg: TMessage;
begin
  Application.HintMouseMessage(dfSize, msg);
//  Showmessage(IntToStr(Msg.Result));
end;

aber passieren tut nichts ... msg enthält den Wert 16. Was musse ich machen, damit der Tooltip angezeigt wird.
Noch schönes wäre natürlich das ein BallonTip aufgeht. Habe mir deshalb mal ein Source von Luckie angeschaut wie das funktioniert. Aber so weit bin ich noch nicht das ich das dort verstehe.

[toms]

Hi,

Probiere mal so was:

Delphi-Quellcode:

var
  I: Integer;
  C: TComponent;
  HintWindow: THintWindow;
begin
  for I := 0 to Application.ComponentCount - 1 do
  begin
    C := Application.Components[I];
    if C is THintWindow then
    begin
      HintWindow := THintWindow(C);
      HintWindow.ActivateHint(...); { Pass appropriate parameters }
      Break;
    end;
  end;
end;