Hey,
ich hab ne Klasse, die von TCustomForm abgeleitet wird und bei der würde ich jetzt gern auf Befehl den Hint anzeigen lassen. Die Klasse ist eigentlich nur ein kleines Fenster, mit ner Art ListBox drin. Wenn der User jetzt durch die Liste blätter, dann soll zu den einzellnen Elementen der Hint angezeigt werden. Ich hab schon versucht die eine CM_HINTSHOW-Message an das Objekt zu schicken, aber da passiert nix.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| var
p: PHintInfo;
Msg: TCMHintShow;
new(p);
p^.HintControl := self;
p^.HintPos := Point(500, 500);
p^.HintMaxWidth := 300;
p^.HideTimeout := 0;
p^.HintStr := 'Test-Hint';
Msg.Msg := CM_HINTSHOW;
Msg.HintInfo := p;
Perform(TMessage(Msg).Msg, TMessage(Msg).WParam, TMessage(Msg).LParam);
SetLength(p^.HintStr, 0);
Dispose(p); |
Gibts da vlt ne einfache Lösung?
MfG & Thx Bergmann
