Текущий архив: 2002.04.15;
Скачать: 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 вся ветка
Текущий архив: 2002.04.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
