DANKE EUCH!!!
ich habe ca 2h nach der lösung gesucht, die ihr mir bietet!
mein prob war wie folgt: ich habe ein array von scrollbars und ein array von edits (und davon jeweils ziemlich viele...)
aufgabe: bei verschieben von scrbar[i] soll die position in edit[i] ausgeschrieben werden.
ich könnte ca 100 onclicks erstellen, aber das wäre etwas SEHR mühsam...
erstellt hab ichs so:
Delphi-Quellcode:
for j:=2 to 4 do
begin
aktuellebox:=j;
gr[j]:=TGroupBox.Create(Form1);
with gr[j] do
begin
Parent := Panel;
Top := 0;
Left := (j-2)*(Panel.Width div 3);
Width := Panel.Width div 3;
Height := Panel.Height;
end;
txt[j]:=TEdit.Create(Form1);
with txt[j] do
begin
Parent := gr[j];
Left := 10;
Height := 20;
Top := 20;
Width := gr[j].Width-2*txt[j].Left;
Text := inttostr(j);
end;
scr[j]:=TScrollbar.Create(Form1);
with scr[j] do
begin
Parent := gr[j];
Left := txt[j].Left;
Height := txt[j].height;
Top := 50;
Width := gr[j].Width-2*txt[j].Left;
Min := 0;
Max := 1000;
SmallChange:= 1;
LargeChange:= 50;
scr[j].OnChange:=scroll;
end;
end;
und dann dank euch
Delphi-Quellcode:
procedure TForm1.scroll(Sender: TObject);
var i: integer;
begin
for i:= 2 to 4 do
if sender = scr[i] then txt[i].Text:=inttostr(scr[i].Position);
end;
is eigentlich deppeneinfach, aber ihr wisst ja wie das so is...
auf jeden Fall
DANKE
ihr seid die EINZIGEN im internet die mir das beantworten konnten!
lg maosmurf