RSS

Re: Emulating a keyboard key press

Please support our Pascal and Delphi advertiser: Programming Forums

Emulating a keyboard key press

•

Join Date: May 2005

Posts: 41

Reputation: mrmike is an unknown quantity at this point

Rep Power: 4

Solved Threads: 0

mrmike

Offline

Light Poster

Re: Emulating a keyboard key press

Sep 14th, 2005

if using an edit box then don't need to use writeln

for each button give it a tag number corresponding to the ascii value you want it to display (ie 0 = 48, 1 = 49, 2 = 50, etc)

create the following procedure

Help with Code Tags

(Toggle Plain Text)

procedure TForm1.ButtonPressed(Sender: TObject);
var
index   :Integer;
begin
for index:=0 to ControlCount -1 do
begin
 if Controls[index] is TWinControl then
  if (Controls[index] as TWinControl).Focused then
   Edit1.Text:=Edit1.Text+Char(((Controls[index] as TWinControl).Tag)
end;
end;

and then set the OnClick event for each button to go to ButtonPressed

hope this helps
mrmike

DaniWeb Home > Forums > Software Development > Pascal and Delphi > Emulating a keyboard key...

Re: Emulating a keyboard key press

Emulating a keyboard key press

Re: Emulating a keyboard key press