private{ Private declarations }procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;
procedure WMSize( Var msg: TWMSize ); Message WM_SIZE;
end;
var
Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begincase (msg.CmdType and $FFF0) of
SC_MINIMIZE: begin
ShowMessage("Window about to MINIMIZE");
end;
SC_RESTORE : begin
ShowMessage("Window about to RESTORE");
end;
SC_MAXIMIZE: begin
ShowMessage("Window about to MAXIMIZE");
end;
end;
inherited;
end;
procedure TForm1.WMSize(var msg: TWMSize);
beginIf msg.Sizetype = SIZE_MAXIMIZED then
ShowMessage("Window MAXIMIZED");
inherited;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Обработать моменты сворачивания и разворачивания формы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!