Delphi-Quellcode:
procedure TForm1.BtnQClick(Sender: TObject);
begin
Schreib.Text := Schreib.Text+BtnQ.Caption;
end;
procedure TForm1.SchreibKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
81: begin BtnQClick(nil); key := 0; end;
end;
end;
Die Caption von BtnQ ist das andere zeichen