| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MouseMove [D6, WinXP]

P. ©   (2002-04-03 12:28:00) 

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var m, k : integer;
begin
m := Panel2.Left + Panel2.Width;
k := Panel2.Top + Panel2.Height;
if ((X > Panel2.Left) and (X < m)) and ((Y > Panel2.Top) and (Y < k)) then
Panel2.Color := cl3DLight
else
Panel2.Color := clBtnFace;
end;
По идее должен меняться цвет панели, но он меняется, когда мышка примерно на её середине, а обратно вообще не хочет.

---

MBo   (2002-04-03 12:43:00) [1]

да нет, не надо - по логике написанного
если в панели - то и вызывается mousemove и перекрашивает.
подозреваю, что нужны Onenter b onexit

---

Song   (2002-04-03 12:39:00) [2]

ScreenToClient надо использовать, если другими словами.

---

MBo   (2002-04-03 12:31:00) [3]

x и у - относительно панели.

---

Наверх