[jekahm]

Добрый день! Возникла такая вот проблемка!
Необходимо, чтобы при нажатии на форме на кнопку максимизации форма меняла бы свои размеры на такие, которые я сам установлю!
Поробовал вот такой код, но всё равно не получаетя:

Код:

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;