mit den Cursortasten zum nächstliegen Control springen

[Optiplex]

Hallo ich hoffe ihr seit noch da.
Lars dein Source funtioniert in soweit,das der Button den Focus in das nächstliegende Edit nach rechts springen lässt, in abhängigkeit der For- Schleife.

Zitat von quendolineDD:

Edit2:
Mal nur reinweg zum probieren geht das auch so

Delphi-Quellcode:

var
  i: Integer;
  o : TObject;
begin
  o := nil;

  for i := 0 to Self.ComponentCount - 1 do
    if Self.Components[i].ClassType = TEdit then
    begin
      if TEdit(Self.Components[i]).Left > TButton(Sender).Left then
        if o = nil then
          o := Self.Components[i]
        else
        if TEdit(Self.Components[i]).Left < TEdit(o).Left then
          o := Self.Components[i];
    end;

    ShowMessage(TEdit(o).Text);
end;

leider verstehe ich die Schleife nicht ganz,

Delphi-Quellcode:

       else
        if TEdit(Self.Components[i]).Left < TEdit(o).Left then
          o := Self.Components[i];

mit diesem Bereich weis ich einfach nicht wann er angesprungen wird und wann nicht. Ich werde versuchen mit den Cursortasten eine Art Steuerung hinzubekommen. Oder hast du auch dafür eine schon eine Idee, denn über TObject das ganze zu probieren, wäre ich nicht gekommen.

Ich sag ja ich muss noch viel lernen.

Dieter