Delphi - база знаний


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


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



(...) 

type
  TfrmMain = class(TForm)
  private
    procedure OnMove(var Msg: TWMMove); message WM_MOVE;
  end;

  (...)

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

(...)

Взято с Исходников.ru



Начало  Назад  Вперед