Как отловить момент окончания изменения размеров компонента

Delphi , ОС и Железо , Сообщения Windows

В следующем примере показан перехват сообщения WM_EXITSIZEMOVE Хотя сообщение документированно только для Windows NT оно работает точно так же и под Windows 95. Обратите внимание что Вы можите перехватить сообщение WM_ENTERSIZEMOVEдля определения момента начала пользователем операции изменения размера или перемещения окна.

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMEXITSIZEMOVE(var message: TMessage); message WM_EXITSIZEMOVE;
end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.WMEXITSIZEMOVE(var message: TMessage);
begin
  Form1.Caption := 'Finished Moving and sizing';
end;

Статья Как отловить момент окончания изменения размеров компонента раздела ОС и Железо Сообщения Windows может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Сообщения Windows ::