Момент окончания изменения размера или перемещения окна

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

type

TForm1 = class(TForm)

private

{ Private declarations }

public

procedure WMEXITSIZEMOVE(var Message: TMessage);

message WM_EXITSIZEMOVE;

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);

begin

Form1.Caption := ‘Finished Moving and sizing’;

end;

{/codecitation}

Добавить комментарий