Application.HideHint ändern

[himitsu]

Delphi-Quellcode:

procedure TForm2.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  C: TWinControl;
begin
  C := FindControl(Msg.hwnd);
  if C is HintWindowClass then begin
    Tag := Tag + 1;
    Caption := IntToStr(Tag);
  end;
end;

Hmmmmm, also entweder hostet Windows die HintWindows extern, was aber nicht gehen kann, denn irgendwo muß das WM_PAINT des HintWindows vorbeikommen, denn als ich zuletzt eine eigene Hint-Klasse schrieb, da ist das noch angekommen (in der Klasse).
Oder man muß auf irgendwas Anderes hören, oder Delphi fängt die HintMessages ab, bevor sie beim OnMessage vorbeikommen.

Delphi-Quellcode:

  THintWindow = class(TCustomControl)
  protected
    procedure Paint; override;
    procedure WMPrint(var Message: TMessage); message WM_PRINT;