Показать сообщение отдельно
  #1  
Старый 10.11.2010, 18:46
Rikki-Tikki Rikki-Tikki вне форума
Прохожий
 
Регистрация: 22.09.2010
Сообщения: 7
Репутация: 10
По умолчанию странно отрабатывает событие OnMouseMove над TImage

Здравствуйте! у меня форма, на которой расположена панель, под ней - TImage.
Я хочу, чтобы Tlabel на панели выводил координату Х двигающегося по имеджу курсора.
для этого я на Timage написала:
Код:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label4.caption:=inttostr(x);
end;
Но он выводит 2 числа при движении по этому Tlabel
а при движению в области рисунка не меняет Tlabel.caption(

Подскажите, пожалуйста, в чем может быть причина?
Вложения
Тип файла: rar ПЗ 2 саперчик.rar (35.8 Кбайт, 1 просмотров)
Ответить с цитированием