Nächste Komponente in Array von Record finden

[cltom]

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!

[Frickler]

Ich nehme an, die Elemente in den Records sind Zeiger auf die "echten" Steuerelemente im Formular oder im Frame? Dann einfach per

MyControlArray[32].Value.SetFocus

wechseln ("SelectNext" macht intern auch nichts anderes).

[cltom]

Zitat von Frickler:

Ich nehme an, die Elemente in den Records sind Zeiger auf die "echten" Steuerelemente im Formular oder im Frame? Dann einfach per

MyControlArray[32].Value.SetFocus

wechseln ("SelectNext" macht intern auch nichts anderes).

Das wäre nicht so schwierig. Aber ich komme aus dem OnKeyDown-Event nicht auf das Array. Da krieg ich nur den Sender oder das aktive Control. Da kann ich via .Name dann weitermachen, aber vom Namen komme ich nicht auf das Control in dem Array. Zumindest sehe ich da keinen Weg.

[jaenicke]

Da musst du das Array durchgehen und suchen oder schlicht eine TList<T> verwenden, die das Array kapselt, denn die hat ein IndexOf (macht dort aber auch nix anderes).

[hoika]

Halo,
du hast doch Handle des Fensters?
Damit solltest Du dein aktuelles Control im Array doch finden müssen?

[noisy_master]

Alternativ könntest du auch die Tags der Controls "missbrauchen:

MyControlArray[1].Position.Tag := 1;
MyControlArray[1].Value.Tag:= 1;
....
MyControlArray[2].Position.Tag := 2;

MyOtherControlArray[1].A.Tag := 10000+1;
....
MyOtherControlArray[2].A.Tag := 10000+2;

Dann kommst du über das Tag auf den Index, bzw zusätzlich auf das entsprechende Array...


Gruß