Brak miejsca na panelu

0

Czesc
Tworze sobie dynamicznie buttony na panelu
var
Form1: TForm1;
But: array [0..255] of TButton;
i, y, x: Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
But[x] := TButton.Create(Panel1);
But[x].Parent := Panel1;
But[x].Left := x;
But[x].Top := 1;
But[x].Caption := ComboBox1.Text;
But[x].OnClick := BtnClick;
x := x + 70;
I wszystko spoko ale do czasu :/
Jeśli utworz kilkanaście buttonów na panelu w pewnym <ort>momeńcie </ort>brakuje miejsca i <ort>koleiny </ort>button mimo że jest tworzony to nie można go zobaczyć.
Jak to rozwiązać?
W pagecontrol jesli utworzy sie dużo zakładek to w pewnym <ort>momeńcie </ort>pojawiają sie strzałki do przewijania. Czy coś takiego jest mozliwe na panelu? A może jest jakieś inne rozwiazanie
Prosze o pomoc

0

Wrzuć na panel scrollboxa i do niego wrzucaj buttony ;-)

0

W ogóle jesteś magikiem. Jakim cudem tworzy Ci kilkanaście buttonów?

Przecież masz tablicę składającą się z 256 przycisków, ale tworzysz je:

but[0]
but[70];
but[140];....

(chodzi o to przypisanie: x:=x+70)

1 użytkowników online, w tym zalogowanych: 0, gości: 1