Hint-Popup manuell anzeigen

[chrisw]

In etwa so :

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  I: Integer;
  r : TRect;
begin
  r.Left := Form1.Left + BitBtn1.Left;
  r.Right := r.Left +50;
  r.Top := Form1.Top + BitBtn1.Top;
  r.Bottom := r.Top + 20;
  for I := 0 to Application.ComponentCount - 1 do
    if Application.Components[I] is THintWindow then
    begin
      with Application.Components[I] as THintWindow do
      ActivateHint(r,'hallo'); 
      Break;
    end;
end;