OnResize

← →
Denya © (2005-02-27 14:18) [0]

Есть такая проблема:
На формочке есть 2 панели верхняя Client, нижняя Bottom, между ними сплитер, при ресайзе формы нужно что бы размер нижней панели был пропорциональным, вопрос где ( в каком событии) можно узнать текущее размеры панелей, что бы посчитать пропорции, в OnResize доступны уже новые размеры.
Заранее спасибо.

← →
Viktop (2005-02-27 14:20) [1]

Прямо в onResize и высчитывай

Вот мой пример, суть та же

procedure TFileWindowCol.FormResize(Sender: TObject);
var n: integer;
begin
n:=Width-25;
ListView2.Column[0].Width:=trunc(n*2/3);
ListView2.Column[1].Width:=trunc(n*1/3);
end;

OnResize Найти похожие ветки