Grüße,
meine Programmierkenntnisse sind nicht die besten, trotzdem versuche ich mich daran.
Mein Problem ganz konkret:
Ich möchte mehrere (viele) Komponenten zur Laufzeit erstellen und ebenso die Möglichkeit haben, diese zur Laufzeit gleichzeitig in Horizontalrichtung zu verschieben. Mit einer ScrollBox kein Problem, leider flackern dabei alle Komponenten etwas zu sehr.
Damals habe ich die Komponenten noch über
(FindComponent('Button' + IntToStr(I) as TButton)
angesprochen, aber vielleicht gibt es ja hier eine bessere Lösung.
Danke für jedwede Hilfe,
Grüße
Als Anhang noch ein Beispiel:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
I, J: Byte;
begin
for I := 0 to 9 do
for J := 0 to 9 do
begin
MyButton := TButton.Create(Form1);
with MyButton do
begin
Left := J * 100;
Top := I * 100;
Height := 100;
Width := 100;
Name := 'MyButton' + IntToStr((I + 1) * 10 + J);
Parent := Form1;
end;
end;
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
var
I, J: Byte;
begin
for I := 0 to 9 do
for J := 0 to 9 do
(FindComponent('MyButton' +IntToStr((I + 1) * 10 + J)) as TButton).Left := - ScrollBar1.Position + J * 100
end;