Wie aktivier man ein edit fenster ??

[FLINKER_FINGER]

huhu an alle die das hier lesen :-D

Ich bin gerade dabei sowas wie eine cd-key eingabe zu schreiben. Ich will aber, wenn eine bestimmte anzahl an zeichen überschritten ist, dass man automatisch ins nächste editfenster kommt, ohne lästig tab drücken zu muessen ....

ist bestimmt ne doofe frage aber ich habe noch nicht so den überplan von delphi-_-

Danke im Vorraus für jede antwort :D

[alcaeus]

Im OnChange-Ereignisses eines Edits:

Delphi-Quellcode:

if Length(Edit1.Text) = 5 then
  Edit2.SetFocus;

Statt 5 kannst du irgendeine Länge nehmen, das ganze kommt dann für jedes Edit hinein. Zusätzlich solltest du noch MaxLength eines Edits setzen.

[SirThornberry]

einfach "ActiveControl := NaechstesEdit"

[faux]

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Length(Edit1.Text) = 5 then //statt 5 halt die maximale Anzahl...
    Edit2.SetFocus;
end;

[Alexander]

Mal 2 Tips: Length und das Event OnKeyDown des Edits. ;-)

[CalganX]

Hi,
reagiere im Ereignis OnChange einfach auf die Länge des Textes... Und in dem Fall, dass die Länger länger ist, als du willst, springst du einfach ins nächste. Bspw. mit

Delphi-Quellcode:

edtDeinNaechstesEdit.SetFocus;

Ich hoffe, dass ist das, was du suchst. ;)

Chris

[FLINKER_FINGER]

also vielen dank an alle, das war genau das was ich gesucht habe :D :D :D :D :D
:dancer: :bouncing4: :bounce1: :bounce1: :bouncing4: :bounce1: :bouncing4: :bounce1: :bouncing4: :bounce1: :dancer: