[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;

[BoRoV]

В свойстах формы при дизайне можно задать максимальные и минимальные размеры формы.

Constraints.MaxHeight
Constraints.MaxWidth

Или посмотри событие OnConstrainedResize.

[jekahm]

Сообщение от BoRoV

В свойстах формы при дизайне можно задать максимальные и минимальные размеры формы.

Constraints.MaxHeight
Constraints.MaxWidth

Или посмотри событие OnConstrainedResize.

Constraints.MaxHeight и Constraints.MaxWidth не помогает!
А как связать событие OnConstrainedResize с процедурой максимизации?

[ryderx34]

Попробуй так:

Код:

procedure TForm3.WMSyscommand(var msg: TWmSysCommand);
begin
  if msg.CmdType = SC_MAXIMIZE then
    begin
      Form3.Height:=200;
      Form3.Width:=200;
    end
  else
    inherited;
end;

[NumLock]

ну так:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//  Constraints.MaxWidth:=640;
//  Constraints.MaxHeight:=480;
end;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType=SC_MAXIMIZE then
  begin
    Width:=640;
    Height:=480;
    Message.Result:=0;
  end else inherited;
end;

end.

хотя

Код:

  Constraints.MaxWidth:=640;
  Constraints.MaxHeight:=480;

тожа работает!

Oops, пока добрался до ответа на этот пост уже ответили

[jekahm]

Спасибо, все работает, как надо! Но возникакет еще такая проблемка: после запуска формы нажимаю на кнопку максимизации, форма увеличивается до определённых размеров, но кнопка максимизации почему-то не меняется на кнопку минимизации формы и уменьшить форму нельзя!
Как этого можно избежать? Заранее благодарен!