springen von vollem TEdit feld zum nächsten

[Vollmilchtrinker]

hi,
ich schreibe gerad ein proggi, in dem man verschiedene TEdit felder, die nebeneinander angeortnet sind mit je einer zahl füllen muss. nun wollte ich fragen, wie man es einstellt, dass der cursor sofort zum nächsten freien TEdit feld springt, wenn das vorherige voll ist?
das alles soll ohne tastendruck passieren...

und ich hab keinen plan wie das gehen könnte, plz help

[angos]

Code:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Length(Edit1.Text)= Edit1.maxLength
  then Edit2.SetFocus;
end;

du kannst ja das Editfeld mit MaxLength begrenzen und darauf greifst du im OnChange-Ereignis zu.

[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;