Изменение положения компонента.

[A-IX-2]

Всем доброго времени суток!
На форме есть GroupBox, положение которого при разворачивании формы на весь экран должно меняться. Если форма на весь экран, то Left=41, Top=433, если не на весь, то Left=441, Top=1. Пишу такой код, но почему-то правильно начинает работать только после того, как форму один раз развернуть:

procedure TForm1.FormResize(Sender: TObject);
begin
  If Form1.WindowState=wsMaximized then
  begin
    GroupBox1.Left:=41;
    GroupBox1.Top:=433;
  end
  else
  begin
    GroupBox1.Left:=441;
    GroupBox1.Top:=1;
  end;
end;

Подскажите, что делать, чтобы правильно работало?

[dmitriegorovih]

    procedure wmloca(var msg:Tmessage); message WM_SYSCOMMAND;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.wmloca(var msg: Tmessage);
begin
inherited;
if (Msg.wParam = windows.SC_MAXIMIZE) then
  begin
    GroupBox1.Left:=41;
    GroupBox1.Top:=433;
  end;
 if (Msg.wParam = windows.SC_RESTORE) then
  begin
    GroupBox1.Left:=441;
    GroupBox1.Top:=1;
  end;
end;

а если вот так
тока вы самого начало выведите GroupBox в положение нормальное

[A-IX-2]

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

    procedure wmloca(var msg:Tmessage); message WM_SYSCOMMAND;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.wmloca(var msg: Tmessage);
begin
inherited;
if (Msg.wParam = windows.SC_MAXIMIZE) then
  begin
    GroupBox1.Left:=41;
    GroupBox1.Top:=433;
  end;
 if (Msg.wParam = windows.SC_RESTORE) then
  begin
    GroupBox1.Left:=441;
    GroupBox1.Top:=1;
  end;
end;

а если вот так
тока вы самого начало выведите GroupBox в положение нормальное

так работает, спасибо!

[HyperZen]

А можно и без кода прикрепив его при помощи Anchors: akRight, akBottom...

[A-IX-2]

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

А можно и без кода прикрепив его при помощи Anchors: akRight, akBottom...

Мне нужно именно в определённом месте. Если через Anchors делать, не корректно получается.