[SKIPtr]

драсте
подскажите как можно сделать запись на диск кординат формы при их изменении
делал через Resize
это событие происходит пока идет изменение
это пока я буду тащить форму головка будет юлозить по диску
хотел совместить Resize с MouseDown
но MouseDown на границе формы не работает
подскажите как мне быть

[Verevkin]

а почему не при закрытии?

[Alegun]

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

...но MouseDown на границе формы не работает...

По идее нужно ловить жим\отжим в неклиентской части, типа как через WM_NCLBUTTONDOWN и WM_NCLBUTTONUP, но насколько помню здесь есть свои подводные камни - даун среда обрабатывает, а вот "подъём" нет, и это вроде баг аж самой оськи, можно конечно ещё WM_NCMOUSEMOVE или WM_SIZE задействовать, но это правда будет тот же самый FormResize, с пробегом. Ещё вариант, глобальный хук с установкой ловушек... но наверное такое уже перебор, слишком мудрёно для простой задачи

[SKIPtr]

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

а почему не при закрытии?

до этого делал при закрытии
а все остальные действия пишу сразу
а тут рещил иэто сразу

[SKIPtr]

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

По идее нужно ловить жим\отжим в неклиентской части, типа как через WM_NCLBUTTONDOWN и WM_NCLBUTTONUP, но насколько помню здесь есть свои подводные камни - даун среда обрабатывает, а вот "подъём" нет, и это вроде баг аж самой оськи, можно конечно ещё WM_NCMOUSEMOVE или WM_SIZE задействовать, но это правда будет тот же самый FormResize, с пробегом. Ещё вариант, глобальный хук с установкой ловушек... но наверное такое уже перебор, слишком мудрёно для простой задачи

это че хук делать
это какой уловитель делать
проще при выключении сделать
но не достаток если напряжение пропадет кординато не сохраниться

[Alegun]

Если напряжение пропадет, не только кординато слетит :-)

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

Код:

...
  private
    { Private declarations }
  procedure WMSYSCOMMAND(var Msg: TMessage);
   message WM_SYSCOMMAND;

  procedure WMNCLBUTTONDOWN(var Msg: TMessage);
   message WM_NCLBUTTONDOWN;
...

procedure TForm1.WMNCLBUTTONDOWN(var Msg: TMessage);
begin
 if (Msg.WParam = 0) and (Msg.LParam = 0) then
   with TStringList.Create do
    begin
     Add('Form.Top - '    + Inttostr(Form1.Top));
     Add('Form.Left - '   + Inttostr(Form1.Left));
     Add('Form.Height - ' + Inttostr(Form1.Height));
     Add('Form.Width - '  + Inttostr(Form1.Width));
     SaveToFile('some.txt');
     Free;
    end {with}
   else
      inherited;
end;

procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
 inherited;
 SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, 0, 0);
end;

[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;

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