My Visual Database — Виртуальная клавиатура

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

null@example.com (DriveSoft) — Fri, 22 Apr 2016 12:31:23 +0000

Raspr wrote:

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

Доработал.

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

null@example.com (Raspr) — Fri, 22 Apr 2016 06:41:27 +0000

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

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

null@example.com (Raspr) — Fri, 08 Apr 2016 03:47:27 +0000

DriveSoft wrote:

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

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

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

null@example.com (DriveSoft) — Thu, 07 Apr 2016 18:05:27 +0000

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

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

null@example.com (Raspr) — Thu, 07 Apr 2016 07:11:59 +0000

И еще.
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;

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

null@example.com (Raspr) — Thu, 07 Apr 2016 05:12:31 +0000

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