Jak zjistím, zda je komponent na panelu

[JindraHavel]

Na panelu (TPanel) mám komponenty Edit...
Chci docílit toho, aby Panel při události OnMouseEnter, resp. OnMouseLeave změnil svoji barvu. To mi funguje ale ....
Ale potřebuji ošetřit stav, kdy myš přejede přes nějaký ten Edit, co je na tom panelu - při najetí na Edit je volána PanelOnMouseLeave - tam bych tedy potřeboval zjistit, že se jedá o Edit na Panelu a tedy barvu neměnit.

[Stanislav Hruška]

If Edit.Parent = MyPanel then alebo
If Edit.Tag = 1 then

[pf1957]

Obecne bych to udelal pres souradnice mysi, aby to fungovalo bez ohledu na widget, ktery je na panelu, tj. neco takoveho v Panel.OnMouseLeave (pro VCL a Windows, predpoklada to vyvolavani vyjimek, pokud se neco nepovede):

Kód: Delphi [Vybrat]

1. var
2.   pos: TPoint;
3.   panel: TPanel;
4. begin
5.   Win32Check(GetCursorPos(pos));
6.   panel := Sender as TPanel;
7.   pos := panel.ScreenToClient(pos);
8.   if not PtInRect(panel.ClientRect, pos) then
9.     Panel1.Color := clBtnFace;
10. end;
11.  

[JindraHavel]

Funguje to 
Děkuji!