1 Topic by Raspr (edited by Raspr 2016-04-07 05:17:43)

  • Registered: 2016-02-28
  • Posts: 124

Topic: Виртуальная клавиатура

Забавы ради хочется состряпать виртуальную клавиатуру. Малоль, на POS-терминале нужно будет программу пользовать. То, что пока получилось приложил. Возникли вопросы:
1. Верно ли мыслю или проще можно как-то?
2. Как реализовать удаление последнего символа в поле по клику на кнопке? Form1.Edit1.Clear, может и достаточно, но можно ли крайний символ все таки?
3. Можно ли открывать форму строго под полем? Т.е. как-то получить координаты текстового поля и задать координаты для открытия формы.

Post's attachments

Attachment icon VK.rar 3.57 kb, 425 downloads since 2016-04-07 

  • Registered: 2016-02-28
  • Posts: 124

Re: Виртуальная клавиатура

И еще.
4. Если форм где нужно вызывать клавиатуру, скажем 15, как удобней поступить? Пока решение слишком громоздкое: берем переменную. При открытии формы её заполняем. Код для каждой кнопки:

procedure Form2_bt1_OnClick (Sender: string; Action: string);
begin
    if sFrmName = 'Form1' then Form1.Edit1.Text := Form1.Edit1.Text+'1';
    if sFrmName = 'Form3' then Form3.Edit1.Text := Form3.Edit1.Text+'1';
    ...
    if sFrmName = 'Form15' then Form15.Edit1.Text := Form15.Edit1.Text+'1';
end;

Фактически, можно получить полное имя нужной формы и поля:

    sEdName := Form1.Name+'.'+Form1.Edit1.Name+'.Text';

Но я же никак не смогу выразить что-то такое:

procedure Form2_bt2_OnClick (Sender: string; Action: string);
begin
    sEdName := sEdName+'2';
end;
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Виртуальная клавиатура

Немного доработал ваш пример.

Post's attachments

Attachment icon VK_fixed.zip 4.91 kb, 428 downloads since 2016-04-07 

Dmitry.
  • Registered: 2016-02-28
  • Posts: 124

Re: Виртуальная клавиатура

DriveSoft wrote:

Немного доработал ваш пример.

Ничёсе немного... )) Спасибо! Поучительно.

  • Registered: 2016-02-28
  • Posts: 124

Re: Виртуальная клавиатура

Помогите, пожалуйста, доработать для полей Memo. Мои эксперименты методом тыка результата не принесли. )

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Виртуальная клавиатура

Raspr wrote:

Помогите, пожалуйста, доработать для полей Memo. Мои эксперименты методом тыка результата не принесли. )

Доработал.

Post's attachments

Attachment icon VK_fixed2.zip 5.84 kb, 431 downloads since 2016-04-22 

Dmitry.