Problem: Panel.OnMouseLeave wenn Chldcomponente bemaust wird

[erich.wanker]

Hallo Leute,

hab mal wieder eine Basisfrage

Auf vielen Panels ist jeweils ein Editfeld..

Die Panel´s besitzt:

Delphi-Quellcode:

procedure TMainForm.PanelMouseEnter(Sender: TObject);
begin
(sender as Tpanel).Color:=clgray;
end;

procedure TMainForm.PanelMouseLeave(Sender: TObject);
begin
(sender as Tpanel).Color:=clsilver;
end;

Die Editfelder mit "Parent= Panel XY" besitzen keine Ereignisse..

Wenn ich nun mit der Maus über die Panels fahre, wird die Farbe wie gewünscht geändert.
Wenn ich aber über die Editfelder fahre, blinkt das darunterliegende Panel kurz clsilver auf, und schaltet dann wieder auf clGray ..

Ich vermute, weil der Event "onMouseleave" vom Panel gesendet wird, wenn die Mausspitze aus dem Bereich "Panelfläche" in den bereich "editfläche" wechselt - aber gleich wieder umschaltet, weil das edit dem panel meldet, das die maus über ihm ist... ?

Wie kann ich dieses "Blinkverhalten" unterbinden?

Vielen Dank
Erich