Скачать: CL | DM;

Не получается расставить 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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c