Hallo,
um eine größere Anzahl von Controls zu verwalten, hab ich ein Array von einem Record, sinngemäß:
Delphi-Quellcode:
TMyControl
Position: TEdit;
Value: TEdit;
Measured : TCheckbox;
ValueUnit : TCombobox;
TMyControlArray: array[0..max] of TMyControl;
Die Controls werden dann mehrfach erzeugt und sind über das Array verfügbar.
Um zwischen den Feldern leichter wechseln zu können, soll der Fokus über das OnKeyDown-Event weiterbewegt werden. Ins nächste kann ich via TabOrder kommen. Das ist dann zB von "Position" zu "Value".
Delphi-Quellcode:
if (Key=VK_Left) then
self.SelectNext(Sender as TWinControl, false, true);
if (Key=VK_Right) then
self.SelectNext(Sender as TWinControl, true, true);
Aber wie komm ich von
MyControlArray[1].Position
nach
MyControlArray[2].Position
oder von
MyControlArray[32].Value
nach
MyControlArray[33].Value
also vertikal rauf oder runter?
Als Komplikation: es gibt nicht nur die eine TMyControl und TMyControlArray sondern mehrere:
Delphi-Quellcode:
TMyOtherControl
A: TEdit;
B: TEdit;
C: TEdit;
D: TCombobox;
E: TCombobox
TMyOtherControlArray: array[0..max] of TMyOtherControl;
Für alle sollte idealerweise dieses Event funktionieren.
Mir fällt nix Kluges ein. Ich kann natürlich den Sendernamen (oder den Namen des aktuellen Focus-Controls) abholen und über den Namens-string und Findcomponent wieder zu einem neuen Control-Namen finden. Da wär lösbar, weil alle Komponenten durchnummeriert sind. Aber mäh, jetzt sind doch die Objekte in einer List, um FindComponent zu vermeiden.
Ich müsste vom sendenden Control auf das beinhaltende Array kommen und dann auch noch auf das Control des Records.
Keine Idee dazu. danke für jeden Hinweis!