Тема: Вместо TShape, двигается Form1
Показать сообщение отдельно
  #2  
Старый 19.05.2013, 19:26
icWasya icWasya вне форума
Местный
  
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию
А почему Shape у Вас -локальная переменная? Сделайте её приватным полем формы, уберите var Shape:TShape; из всех процедур, и должно заработать.
Ответить с цитированием