[gelöst] OnMouseLeave im DrawGrid

[m.fuchs]

Hallo,

ein kleines Problem welches mich nervt. Ich benutze ein DrawGrid und möchte dort darauf reagieren, wenn der Mauszeiger den Bereich des Grids verlässt. Ein OnMouseLeave oder ähnliches gibt es jedoch leider nicht. Hat jemand eine gute Idee?

Hintergrund: Zur Zeit lasse ich mit Hilfe von OnMouseMove bestimmte Zellen die der Mauszeige gerade überquert in andere Farbe darstellen. Handelt es sich jedoch um eine Zelle am Rand, so wird die andere Farbe beim Verlassen des Grids nicht wieder zurückgesetzt.

Micha

[theo]

Ist aus irgendwelchen Gründen nicht published. Vllt. funzt es auf gewissen Systemen nicht.
Bei mir (GTK2) funzt es aber, wenn ich eine Ableitung von TDrawGrid mache und das property publishe:

Code: Alles auswählen

type
 
 TMyDrawGrid = class(TDrawGrid)
   published
     property OnMouseLeave;
 end;  
....
var
  Form1: TForm1;
  MyDraw:TMyDrawGrid;        
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyDraw:=TMyDrawGrid.Create(self);
  MyDraw.Parent:=Self;
  MyDraw.OnMouseLeave:=@MyGridMouseLeave;
end; 
 
procedure TForm1.MyGridMouseLeave(Sender: TObject);
begin
  Caption:=TimeToStr(now);
end;

[m.fuchs]

Ist aus irgendwelchen Gründen nicht published. Vllt. funzt es auf gewissen Systemen nicht.
Bei mir (GTK2) funzt es aber, wenn ich eine Ableitung von TDrawGrid mache und das property publishe:

Merci, so funktioniert es bei mir dann auch. Zumindest Win7 (64) klappt damit auch.

Micha

[theo]

Merci, so funktioniert es bei mir dann auch. Zumindest Win7 (64) klappt damit auch.

Dann ist's ja gut.
Willst du einen Feature-Request im Bugtracker machen? Ich sehe keinen Grund, warum das nicht standardmässig zur Verfügung stehen sollte.