Цифровая клавиатура при нажатии кнопки.

[Shagrid]

Коротко по существу:

Есть TEdit скрытое. Там стоит тип клавиатуры - цифровая.

Нужно, что бы при нажатии на кнопку, открылась цифровая клава для данного поля.

не соображу, как сделать =(

 

Заметил фишку: если сделать поле видимым, то после нажатия на него и с кнопки так же открывается цифровая клавиатура.

Изменено 25 сентября, 2014 пользователем Shagrid

[estra]

А как вы скрываете TEdit? Если Edit1.Visible = False, то в данном случае такой вариант не годится (для текстового поля с Visible = False клавиатура появляться не будет). В вашем случае надо делать так: Edit1.Visible = True, Edit1.Opacity = 0. Тогда для кнопки пишем такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.SetFocus;
end;

и получаем желаемый эффект.

[Shagrid]

А как вы скрываете TEdit? Если Edit1.Visible = False, то в данном случае такой вариант не годится (для текстового поля с Visible = False клавиатура появляться не будет). В вашем случае надо делать так: Edit1.Visible = True, Edit1.Opacity = 0. Тогда для кнопки пишем такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.SetFocus;
end;

и получаем желаемый эффект.

Благодарствую. Чёт не подумал о таком способе скрыть...