Spezielles "Hint"(Window) für nur ein bestimmtes Control

[Hawkeye219]

Hi,

es sollte auch ohne Timer gehen:

Delphi-Quellcode:

type
  TMyHintWindow = class(THintWindow)
  protected
    procedure Paint; override;
  end; 

procedure TMyHintWindow.Paint;
begin
  // hier HintWindow-Inhalt zeichnen
end;

procedure TDemoForm.ApplicationShowHint (var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
  if (HintInfo.HintControl = TreeView1) then // hier Control einsetzen
    HintInfo.HintWindowClass := TMyHintWindow;
end;

procedure TDemoForm.FormCreate (Sender: TObject);
begin
  Application.OnShowHint := ApplicationShowHint;
end;

Auf diese Weise wird das neue HintWindow nur für das angegebene Control (hier TreeView1) verwendet.

Gruß Hawkeye