[SKIPtr]

Сообщение от Alegun

Методом научного тыка получилась компиляция из обработчиков определенных сообщений, вроде работает

спасибо
после долгой возни и исправлений вроде получилось
сперва думал просто скопировать этот текс себе
но он давал ошибку Illegal character in input file:*'*'*($A0)
когда я текст вбил вручную эта ошибка исчезла
но форма не хотела менять размеры и кординаты
после долгих тыканей осталось такое

Код:

procedure TForm1.WMNCLBUTTONDOWN(var Msg: TMessage);   message WM_NCLBUTTONDOWN;
var s : string;
begin
   Inherited;
       s := 'Height ' + IntToStr(Height) + #13;
     s := s + 'Width ' + IntToStr(Width) + #13;
     s := s + 'Left ' + IntToStr(Left) + #13;
     s := s + 'Top ' + IntToStr(Top);
     Label.Caption := s;
     end;

и это вроде работает