CM_MOUSELEAVE funktioniert nicht...

[patti]

Hey,

Ich habe ein Problem mit CM_MOUSELEAVE und ich glaube ich verzweifle bald :freak:. Hier erstmal der Code:

Delphi-Quellcode:

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.

Ich habe das schonmal in einem anderen Programm gemacht und da hat alles wunderbar funktioniert, aber jetzt geht es nicht mehr :(

Mach ich irgendwas falsch?

Danke im Voraus,
P@Tti

[SirThornberry]

liegt eventuell irgendetwas auf deiner Form (Panel etc.) was das Form selbst verdeckt?

[patti]

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

[patti]

Ü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

[Christian Seehase]

Moin Patti,

Zitat:

Zitat von patti

Übrigens habe ich gesehen, dass dieser Code genauso in der DP zu finden ist, umso mehr wundert es mich, dass es nicht funktioniert...

Bist Du sicher, dass Du den Code im Zusammenhang mit einem Formular gesehen hast?
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.

[DGL-luke]

Hallo,

da MSDN kennt CM_MOUSEENTER/LEAVE gar nicht... dafür aber WM_MOUSELEAVE, ENTER aber nicht.

Äußerst komisch, das ganze :gruebel:

Was ist denn mit den VCL-Events OnMouseEnter/Leave? Die machens genauso... ist in TWinControl deklariert...

[SirThornberry]

dafür gibt es WM_MOUSEHOVER. Findet man alles wenn man im MSDN sich das ganze mal durchliest.

[TStringlist]

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.

Und das heißt natürlich nichts anderes als: Es funktioniert deswegen nicht, weil die Mouse-Messages nach dem Verlassen deiner Form damit ja auch gar nicht mehr an deine Form abgesendet werden, sondern stattdessen dann an die Form, über der die Maus danach herausgekommen ist. Verlässt Du deine Form über die Title-Bar, dann existiert natürlich auch noch genug Zeit, diese Message auch überhaupt noch erhalten zu können. Und hälst Du eine Maustaste gedrück, dann unterbleibt dieser Wechsel des Mouse-Message-Empfängers und zwar wegen des dann noch aktiven Mouse-capturings.

[patti]

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:

Application.ProcessMessages;

Ist zwar nicht die beste Lösung, funktioniert aber wenigstens...

Danke für eure Antworten und Bemühungen!

P@Tti