напомните, как сплитер динамически поместить правильно

← →
ВладОшин © (2014-04-18 16:21) [0]

мемо (alClient), панель и сплитер
мемо сверху, внизу панель, сплитером меняем размер

по выбору combo панелька должна быть сверху, снизу, L,R

но вот беда - когда она слева, сплитер становится еще левее ее и ресайз не сделать уже

var
A:TAlign;
begin
case cbbWhere.ItemIndex of
0: A := alTop;
1: A := alLeft;
2: A := alRight;
3: A := alBottom;
end;
pnl1.Align := A;
spl2.Align := A;

← →
Sha © (2014-04-18 16:56) [1]

Алигны ставь по порядку: сначала контрол на сторону, потом сплиттер на сторону, потом контрол на клиент, а перед этим алигны сбрось.

← →
Jeer © (2014-04-18 17:02) [2]

>но вот беда - когда она слева, сплитер становится еще левее ее и ресайз не сделать уже

Так схвати сплиттер мышой и перемести правее.

← →
Inovet © (2014-04-18 17:26) [3]

> [2] Jeer © (18.04.14 17:02)
> схвати сплиттер мышой

Надо динамически. Хотя, не вижу разницы.

← →
й (2014-04-18 18:49) [4]

имеет значение соотв. координата сплиттера перед назначением ему Align (т.е. Top для alTop, Left для alLeft)
MyPanel.Align:=alLeft; with MySplitter do begin //Left наверняка = 0, поэтому при "Align:=alLeft" сплиттер прилипнет к краю //Align:=alRight; //тоже сработает, и 2 следующих строки не понадобится // но чисто для иллюстрации идеи: Align:=alNone; // скорее всего, у автора это уже было сделано Left:=MyPanel.Left+MayPanel.Width; //скорее всего, сработает любое значение > 0 Align:=alLeft; // вот теперь уже можно end;

← →
[ВладОшин] © (2014-04-18 19:40) [5]

ok, спасиб
что-то подумал, сами встанут
а надо

> перед этим алигны сбрось.

> [ВладОшин] © (18.04.14 19:40) [5]
>
> ok, спасиб
> что-то подумал, сами встанут

Правильно подумал. Они сами и встали. :)

напомните, как сплитер динамически поместить правильно Найти похожие ветки