Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c