Hints... egal wo!

[Fossibaer58809]

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