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

[Dimon4ik96]

Всем привет, такая проблемка нужно написать екранную клавиатуру с 2 кнопками Q и A, заранее спасибо.

[NetSpace]

а щёлкать по ней мышкой надо, сенсорный экран даётся или силой мысли нажимать?

[kropotkina-alice]

Так вроде нет ничего заумного...
Достаточно просто иметь какую-никакую книжонку по Дельфи.

procedure TForm1.ButtonAClick(Sender: TObject);
begin
PostMessage(Handle, WM_KEYDOWN, Ord('A'), 0);
end;

procedure TForm1.ButtonQClick(Sender: TObject);
begin
PostMessage(Handle, WM_KEYDOWN, Ord('Q'), 0);
end;