Форум по Delphi программированию - Показать сообщение отдельно - странно отрабатывает событие OnMouseMove над TImage

lmikle · #4 11.11.2010, 01:06

Код из твоего проекта:

Код:

procedure TForm1.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label4.caption:=inttostr(x)+' '+inttostr(Y);
end;

Ничего не смущает???