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

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

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

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

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

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

[egorka6909]

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