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);