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;