Текущий архив: 2002.11.28;
Скачать: CL | DM;

Вниз

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

← →
BIN ©   (2002-11-18 09:19) [0]

Необходимо отображать в ScrollBox"е вновь создаваемые формы,
делаю так :

procedure TForm1.BitBtn1Click(Sender: TObject);
var f : TForm2;
begin
f := TForm2.Create(Self);
f.Parent := ScrollBox1;
f.Align := alTop;
f.Show;
end;

Однако, когда высота размещаемых форм превышает высоту ScrollBox
полоса прокрутки НЕ появляется, как должно было быть!!!
свойство ScrollBox1.AutoScroll := true;
в делфи шесть все нормально работает, а в 3 такая фигня...

---

← →
BIN ©   (2002-11-18 09:45) [1]

Даже если принудительно делаю
ScrollBox1.VertScrollBar.Visible := true;
полоса не появляется. Мож кто встречался с подобными вещами???

---

← →
BIN ©   (2002-11-18 12:59) [2]

Господа Мастера!!! честно говоря, очень бы хотелось услышать конструктивное мнение по этому вопросу, или хотя бы мысль, или ссылку.

---

← →
han_malign ©   (2002-11-18 13:09) [3]

ScrollBox1.Invalidate?
ScrollBox1.VertScrollBar.Range - не вычиляется? (попробуй руками)
f.Align:=alTop?

---

← →
BIN ©   (2002-11-18 13:26) [4]

Спасибо, ужо дошло , но AutoScroll почему не работает, в 6 работает, а в 3 нет??? сделал так :

if SumHeight > ScrlBox1.Height then
begin
with ScrlBoxChart.VertScrollBar do
begin
Range := SumHeight;
Position := 0;
Increment := 8;
Visible := True;
end;
end;
а почему тебя f.Align:=alTop? насторожило??? вторая форма появляется вверху ScrollBox"a ???

---

← →
han_malign ©   (2002-11-18 13:33) [5]

C Align нужно работать очень осторожно, до абсурда - с начала приходится позиционировать на место - потом выравнивание включать, а без выравнивания они будут в навалку лежать, в 3 вероятнее всего просто не протащен пересчет диапазона, ведь последующии версии отличались, помимо добавления примочек в IDE, и доработками компонент.

---

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

Текущий архив: 2002.11.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c