[egorka6909]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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;

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

[M.A.D.M.A.N.]

Имитируй нажатие клавиш.

http://www.delphi-vsem.ru/012.html

Если это, конечно, не под мо(б/г)илу программа.

[egorka6909]

Спасибо! До этого пробовал имитировать нажатие клавиш с кнопками TButton не хотел писать, а с TSpeedButton все работает)))
И еще вопрос а возможно в данном методе имитации клавиш сделать так чтобы значение он брал с капчи кнопки?