Скачать: CL | DM;

MouseMove   Найти похожие ветки 

← →
P.   (2002-04-03 12:28) [0]

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:31) [1]

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

---

← →
Song ©   (2002-04-03 12:39) [2]

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

---

← →
MBo ©   (2002-04-03 12:43) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c