In nächstes Feld weiterspringen bei festgelegter Länge?

[HaCkAttaCk2001]

Hi @ all.

Ich habe ein Problem mit einem MaskEdit. Dieses Edit erlaubt es, genau 2 Zahlen einzutragen (es müssen 2 sein). Ich möchte nun, dass der Cursor ins nächste MaskEdit springt, wenn beide Zahlen eingetragen sind.

mit:

Delphi-Quellcode:

if Length(MaskEdit1.Text) = 2 then MaskEdit2.Focused;

im OnChange-Ereignis des MaskEdit1 funktioniert dies aber nicht. Warum?


Wäre über 'ne Lösung sehr dankbar.


C ya.

[S2B]

Ich würde

Delphi-Quellcode:

MaskEdit2.SetFocus;

nehmen! :wink:

[HaCkAttaCk2001]

Hi.

Es geht! Du bist genial :D . Die schnellste Lösung eines Problems, die ich je hatte! :D :dp:

Für was gibts denn dann eigentlich "Focused"?!

C ya.

[S2B]

Damit liest man imho den aktuellen Status aus, also ob das Feld den Focus hat oder nicht! :wink:

[HaCkAttaCk2001]

Hi.

Das Delphi da nicht gemeckert hat... war ja keine Zuweisung da. Na egal, ich verdreh halt immer alles ^^.


THX.


*close pls* :D .

[Sharky]

Hai,

wenn Du mehrere MaskEdits hast kannst Du das auch noch allgemeiner machen. Einfach allen MaskEdits die selbe OnChange Procedure zuweisen. Diese sieht dann so aus:

Delphi-Quellcode:

procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
  if (Length ((Sender As TMaskEdit).Text) = 2) then
  begin
    Perform(WM_NEXTDLGCTL,0,0);  // Focus auf das nächste Obejct
  end;
end;