Bei Enter ins nächste EDIT-Feld

[burn]

Hallo allerseits,

habe eine Form mit mehreren Edits, Buttons, etc ...
Die Tabulator-Reihenfolge ist gemischt ...

Ich möchte folgendes erreichen:

Bei Enter in einem Edit-Feld soll auf das nächste Edit-Feld
gesprungen werden (nicht auf einen Button o.ä.)
Ist man im letzten Edit soll wieder aufs erste gegangen werden.


Jedoch möchte ich weiterhin die Möglichkeit haben,
wenn ich TAB drücke das der Focous dann aufs nächste Control( z.B. Button) geht.

Irgendwelche Vorschläge ???


Grüsse Steve

[bernd2000]

Hallo burn

Code:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if Key = #13 then Self.Perform(WM_NEXTDLGCTL, 0, 0);
end;

KeyPreview von Form1 auf true setzen nicht vergessen!!!

Gruß Bernd

[Stevie]

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  NextControl: TWinControl;
begin
  if Key = VK_RETURN then
  begin
    NextControl := Sender as TWinControl;
    repeat
      NextControl := FindNextControl(NextControl, True, True, True);
    until NextControl.InheritsFrom(TEdit);
    NextControl.SetFocus;
  end;
end;

[ibp]

... hallo ...
wie wäre es mit dem onkey.. ereignis ...

[burn]

Thx to Stevie -> funzt bestens, genau das hab ich gesucht!!!

@bernd2000
-> die Möglichkeit hatte ich auch zuerst aber
ich bin immer nur im nächsten Control gelandet

Vielen Dank für die Mithilfe

Steve