Добрый день! Возникла такая вот проблемка!
Необходимо, чтобы при нажатии на форме на кнопку максимизации форма меняла бы свои размеры на такие, которые я сам установлю!
Поробовал вот такой код, но всё равно не получаетя:
Код:
private
procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;
Код:
procedure TForm3.WMSyscommand(var msg: TWMSysCommand);
begin
if msg.CmdType = SC_MAXIMIZE then
Form3.Height:=100;
Form3.Width:=100;
inherited;
end;