springen von vollem TEdit feld zum nächsten

[Sharky]

Hai,

hier noch eine allgemeinere Lösung:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.OnChange := AllEditChange;
  Edit2.OnChange := AllEditChange;
  Edit3.OnChange := AllEditChange;
end;

procedure TForm1.AllEditChange(Sender: TObject);
begin
  if Length ((Sender As TEdit).Text) = ((Sender As TEdit).MaxLength) then
  begin
    Self.Perform(WM_NEXTDLGCTL,0,0);
  end;
end;