MaskEdit - маски

[Alana]

На форме стоит компонент TMaskEdit, в нем маска - " . . . " для ввода в каждую ячейку по 3 числа (то есть для ввода IP-адреса). Как сделать, чтобы при нажатии на правую стрелочку на клавиатуре, курсор переходил сразу в следующую ячейку маски? А то приходится два раза нажимать, чтобы перешло.

[Скандербег]

В некотором роде ожидаемое поведение курсора можно сделать таким образом:

procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  I : Integer;
begin
  if Key = VK_RIGHT then begin
    I := MaskEdit1.SelStart;
    if (I-1) mod 4 = 0 then
      MaskEdit1.SelStart := I + 3;
  end;
end;

[Alana]

Сообщение от Скандербег

В некотором роде ожидаемое поведение курсора можно сделать таким образом:

procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  I : Integer;
begin
  if Key = VK_RIGHT then begin
    I := MaskEdit1.SelStart;
    if (I-1) mod 4 = 0 then
      MaskEdit1.SelStart := I + 3;
  end;
end;

Спасибо, все получилось )

[Скандербег]

Получается при нажатии любой клавиши на клавиатуре курсор перемещается в конец поля, а не в следующую ячейку.

В моем эксперименте так не получается. А получается, что после ввода первого символа в "поле" и нажатии на стрелку вправо курсор перескакивает на следующее "поле" ("поле" - пространство между точками).
Маска: '0##.0##.0##.0##;1; ' (последний символ в маске - пробел)

[Alana]

Я немного сама прогнала с маской. И поэтому сразу не получилось. Потом доперло Спасибо ))