Mehrere ScrollBars & Editboxes verknüpfen

[xZise]

Aber an sich ist diese Variante unelegant...
Eleganter, aber wahrscheinlich nicht in deinem Verständis ( ), wäre die dynamische Erstellung von einem Edit und Scrollbar array... Sodass man mithilfe des Tags einfacher an den Index rankommt:

Delphi-Quellcode:

const SCROLLBARS_EDITS_COUNT = 10;

type
  Form1 = class(TForm)
  public
    {...}
    eValues : array [0..SCROLLBARS_EDITS_COUNT - 1] of TEdit;
    sbValues : array [0..SCROLLBARS_EDITS_COUNT - 1] of TScrollBar;
  end;

{...}
procedure TForm1.FormCreate(Sender : TObject);
var
  i : Integer;
begin
  for i := 0 to SCROLLBARS_EDITS_COUNT - 1 do
  begin
    { ... }
    eValues[i].Tag := i;
    sbValues[i].Tag := i;
  end;
end;

Später wenn du dann darauf zugreifst:
Für das Setzen des Edits:
eValues[(Sender as TScrollBar).Tag].Text := IntToStr((Sender as TScrollBar).Postion); Für das Setzen der Scrollbarposition:
sbValues[(Sender as TEdit).Tag].Position:= StrToInt((Sender as TEdit).Text);