Как узнать, была ли перемещена форма?

(...) 

type

  TfrmMain = class
(TForm)
  private

    procedure
 OnMove(var Msg: TWMMove); message WM_MOVE;
  end
;

  (...)

procedure
 TfrmMain.OnMove(var Msg: TWMMove);
begin

  inherited
;
  (...)
end
;

(...)




В наличии. Есть стетоскоп. Покупайте. все новые игры онлайн обучение за рубежом стоимость.