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

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