Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Eine Art Form im Form ? (Komponenten scrollen)
F34r0fTh3D4rk - So 12.06.05 18:54
Titel: Eine Art Form im Form ? (Komponenten scrollen)
hallo, ich brauche sowas wie ein formular, ich möchte eine unbegrenzte anzahl von labels zur laufzeit erstellen und da das irgendwann zu lang wird, soll man dort nach unten scrollen können, so wie beim formular, nur soll es eben nicht das formular sein, sondern nur ein teil im formular, wie mache ich das ?
Christian S. - So 12.06.05 18:57
Ich habe genau ein Wort für Dich: TScrollBox ;-)
F34r0fTh3D4rk - So 12.06.05 18:59
wunderschön, danke TUFKAPL :mrgreen:
Dank deinem Komponenten Array Tutorial auch auf anhieb mit 20 labels :idea:
Delphi-Quelltext
1:
2:
| private
FLabels: Array of TLabel; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
mylabel : Tlabel;
begin
SetLength(Flabels, 20);
for i := 0 to High(Flabels) do
begin
Flabels[i] := Tlabel.Create(self);
with Flabels[i] do
begin
parent := scrollbox1;
left := 10;
top := i * 25;
name := 'label' + IntToStr(i + 1);
caption := name;
end;
end;
end; |
bist halt der Größte :D
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!