![]() |
CM_MOUSELEAVE funktioniert nicht...
Hey,
Ich habe ein Problem mit CM_MOUSELEAVE und ich glaube ich verzweifle bald :freak:. Hier erstmal der Code:
Delphi-Quellcode:
Ich habe das schonmal in einem anderen Programm gemacht und da hat alles wunderbar funktioniert, aber jetzt geht es nicht mehr :(
unit haupt;
interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private-Deklarationen } procedure MouseEnter(var Msg: TMessage); message CM_MOUSEENTER; procedure MouseLeave(var Msg: TMessage); message CM_MOUSELEAVE; public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.MouseEnter(var Msg: TMessage); begin Color := clGreen; end; procedure TForm1.MouseLeave(var Msg: TMessage); begin Color := clRed; end; end. Mach ich irgendwas falsch? Danke im Voraus, P@Tti |
Re: CM_MOUSELEAVE funktioniert nicht...
liegt eventuell irgendetwas auf deiner Form (Panel etc.) was das Form selbst verdeckt?
|
Re: CM_MOUSELEAVE funktioniert nicht...
Nein, es ist im Moment nur die Form, komischerweise funktionier CM_MOUSEENTER schon, also beim Überfahren mit der Maus wird es grün.
Ich habe alles wie bei meinem früheren Programm gemacht, aber jetzt klappt es nicht mehr. P@Tti |
Re: CM_MOUSELEAVE funktioniert nicht...
Übrigens habe ich gesehen, dass dieser Code genauso in der DP zu finden ist, umso mehr wundert es mich, dass es nicht funktioniert...
P@Tti |
Re: CM_MOUSELEAVE funktioniert nicht...
Moin Patti,
Zitat:
Ich habe es gerade einmal ausprobiert, und musste feststellen, dass es funktioniert, allerdings nur einmal, als ich mit dem Cursor Richtung Caption gegangen bin. Wenn Du aber die linke Maustaste gedrückt hast, wenn sich der Cursor über dem Formular befindet, und dann, mit gedrückter Taste, vom Formular runtergehst, funktioniert es immer. |
Re: CM_MOUSELEAVE funktioniert nicht...
Hallo,
da MSDN kennt ![]() ![]() Äußerst komisch, das ganze :gruebel: Was ist denn mit den VCL-Events OnMouseEnter/Leave? Die machens genauso... ist in TWinControl deklariert... |
Re: CM_MOUSELEAVE funktioniert nicht...
dafür gibt es
![]() |
Re: CM_MOUSELEAVE funktioniert nicht...
Zitat:
|
Re: CM_MOUSELEAVE funktioniert nicht...
Sorry, dass ich erst jetzt antworte, aber ich war gestern abend nicht mehr online...
Ich habe jetzt einen Timer auf die Form gesetzt mit Interval 10 und als OnTimer-Ereignis ein einfaches
Delphi-Quellcode:
Ist zwar nicht die beste Lösung, funktioniert aber wenigstens...
Application.ProcessMessages;
Danke für eure Antworten und Bemühungen! P@Tti |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz