[egorka6909]

Есть MaskEdit с маской ввода 999-999-999 99;1;_ и форма с кнопками 1,2,3...9,0.
При вводе цифр с кнопок TSpeedButton в поле MaskEdit курсор не перескакивает через "-" и пробел в конце, тем самым приходиться нажимать еще раз на кнопку чтобы написать за "-" и пробелом нужную цифру.

Использую вот такой обработчик кнопки:

Код:

var
  s : string;
  p : Integer;

//Кнопка 1
procedure TPFR_1.Num1Click(Sender: TObject);
begin
if Self.ActiveControl is TMaskEdit then
with Self.ActiveControl as TMaskEdit do
begin
s := Text;
p := SelStart + 1;
Insert((Sender as TSpeedButton).Caption, s, p);
Text := s;
SelStart := p;
end;
end;

Вкладываю скрин как это все выглядит.