Hallo,
warum
Delphi-Quellcode:
for zahl := 0 to Form1.Text_Objects.count - 1 do
begin
case (Form1.Text_Objects[zahl] as TComponent).Tag of
0:
begin
// Label
(Form1.Text_Objects[zahl] as TLabel).Top := current_Height -
Form1.ScrollBar1.Position;
current_Height := current_Height +
(Form1.Text_Objects[zahl] as TLabel).Height;
end;
warum nicht
if (Form1.Text_Objects[zahl] is TLabel of
Nicht dass du in Text_
Objects andere Komponenten reinpackst mit Tag=0,
kann es knallen.
Heiko