Есть 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;
Вкладываю скрин как это все выглядит.