Не получается расставить Anchrs :(((((

← →
Filat (2003-04-18 16:27) [0]

Подскажите пожалуйста, как правильно расставить Anchrs, если у меня на форме есть 2 панели и на них по 1-му Label. Надо чтобы при раскрытии формы на весь экран панели делили её по ширине пополам, а Label был по центру панели в верхней её части.
Спасибо!

← →
Filat (2003-04-18 17:50) [1]

Неужели никто не знает? Или все слишком просто?

← →
mike-d (2003-04-18 21:49) [2]

для Label"ов поставь akLeft, akRight и akTop в True.
левую панель (Panel1) сделай Align := alLeft, а правую в alClient.
при запуске сделай следующее:

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.Width := ClientWidth div 2;
end;

и должно получиться примерно то, о чем ты просишь. Label вырвняй заранее - в дизайне, а если лениво, то тоже посчитай для них High и Width :)

← →
mike-d (2003-04-18 21:53) [3]

забыл добавить - обработчику формы OnResize - прицепи код OnCreate

Не получается расставить Anchrs :((((( Найти похожие ветки