hallo
Folgender Sachverhalt:
Ich habe > 500 Scrollbars in einem Formular (auf verschiedene Panels verteilt). Zu jeder Scrollbar gehört eine Edit-Box in welcher entweder der aktuelle Wert der Scrollbar angezeigt (wenn diese bewegt wird), oder ein Wert für die Scrollbar festgelegt werden soll (wenn man denWert direkt eingibt). Das funktioniert auch soweit gut, wenn ich für jede Scrollbar-Editbox-Kombination eine eigene Procedure schreibe. Für eine variable Anzahl dieser Kombinationen ist das aaber nicht möglich.
Jetzt zu meiner Frage:
Wie kann ich anhand des Senders die entsprechende Kombination, z.b. Scrollbar 385 <-> Editbox 385, ermitteln?
Delphi-Quellcode:
procedure TForm1.changeValue(Sender: TObject); // Ändern des Wertes im Edit-Feld wenn die Scrollbar bewegt wird
begin
i:= 100 - Form1.Ch1.Position;
Form1.Ch1Text.Text := IntToStr(i);
end;
procedure TForm1.changeValueBar(Sender: TObject); // Ändern der Scrollbar-Position, wenn ein Wert im Edit-Feld eingegeben wird
begin
i:= StrToInt(Form1.Ch1Text.Text);
Form1.Ch1.Position := 100 - i;
end;
mfg
afentis