Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
showMessage('test');
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = '1' then
button1.Click;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.KeyPreview:=true;
end;
Also, bei mir funktiniert der obige Code einwandfrei.
Es ist eine Form mit einem Button.
Grüße
Klaus