Симулирование ввода с клавиатуры.

[damq1n]

Вообщем суть проблемы такова.

есть панель на форме на которой кнопки от 1 до 0, которые симулируют ввод с клавиатуры.

SendMessage(maskedit1.Handle, wm_char, '1' ,0);

вот так все в порядке. ставит куда нужно '1', но я не хочу каждую кнопку описывать.

поэтому для всех кнопок хочу использовать одну и туже процедуру.

Вот не один из не рабочих вариантов.

procedure TForm2.KeyButton1Click(Sender: TObject);
var
Btn : Tbutton;
f: integer;
begin
Btn := Sender as TButton;
f:= btn.tag;
SendMessage(maskedit1.Handle, wm_char, f ,0);
end;

Каждая кнопка имеет тег соответственный номеру кнопки.
Но не работает и все тут, такое ощущение что он будто куда то не туда пытается написать ее и сбивается фокус с эдита.
Пробовал использовать btn.caption и Pchar пытался приладить, ничего не выходит.

Извините если тему не там и неправильно создал. Новичок я здесь, и в программировании тоже

[Пепел Феникса]

ну так у вас в теге должен быть код символа '1', а не просто тупо единица.
(и так далее)

[damq1n]

Огромнейшее, я чтото упустил этот момент вовсе!