TListbox "MouseLeave" überschreiben

[ATS3788]

Hallo Delphianer

Wie kann man MouseEnter & MouseLeave überschreiben.

Tracing den Code zeigt mir

procedure TControl.CMMouseEnter(var Message: TMessage);

auf.

[himitsu]

Hättest du mal den Quellcode mit gekauft, dann könntest du nachsehn wie TControl.CMMouseEnter definiert ist und Dieses einfach kopieren/nachmachen.


http://www.delphi-treff.de/object-pa...n-und-objekte/ -> Botschaftsmethoden

http://www.delphipraxis.net/178117-k...auslagern.html


PS: Die Message heißt bestimmt vermutlich CM_MOUSE_ENTER (Component Message) oder du nimmst WM_MOUSEACTIVATE und WM_MOUSELEAVE (Windows Message)
siehe Unit Messages (oder vcl.messages ... k.A.) und dort kannst du ja in der OH oder via Codevervollständigung rumstöbern.

[ATS3788]

himitsu Danke habe ich doch,
nur ich war mir nicht sicher,
ob das so dann richtig ist.

[himitsu]

Da links steht nein.