[Electronic_Arts]

Проблема такая - я поместил в форме компонент Panel1 и присвоил ему значение
Anchors -
akLeft=True;
akTop=True;
akRight=True;
akBottom=True;

что бы оставить компонент в центре формы при изменении разрещение - проблема в том что когда делаешь форму вовесь экран Panel1 растягиваеться - можноли как нить другим способом поместить компонент Panel1 в центре формы чтоб оно не расстягивалась при изменении разрещени???

[lmikle]

Можно, но не так. Обрабатывай событие OnResize формы, где просто расчитывай координаты панели.

[Electronic_Arts]

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

Можно, но не так. Обрабатывай событие OnResize формы, где просто расчитывай координаты панели.

Пожалуста можно код?

[lmikle]

Ну ты даешь...

Код:

procedure TForm1.FormResize(Sender: TObject);
begin
  Panel1.Left := Round((Width - Panel1.Width)/2);
  Panel1.Top := Round((Height - Panel1.Height)/2);
end;

[Act]

а еще якоря убери с правого и нижней стороны что бы не растягивался