Guten Abend,
Hier ein kleines Beispiel, wie sich eigene Hints in Controls erzeugen lassen. On das mit TObject auch funktioniert kann ich leider nicht sagen.
Delphi-Quellcode:
TVisuControl = class(TGraphicControl)
protected
procedure CMHintShow(var Message : TMessage); message CM_HINTSHOW;
....
end;
procedure TVisuControl.CMHintShow(var Message : TMessage);
begin
with TCMHintShow(Message) do begin
with HintInfo^ do begin
Result := 0;
HintStr := 'Hier steht irgendein Hint';
...
end;
end;
end;
Gruß
Michael