Erstmal danke für deine Antwort, aber ich hab Probleme mit der Umsetzung.
Hier mein bisheriger Quellcode:
Code:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
var kombi:string;
begin
kombi:='';
if key='1' then button1.click;
if key='2' then button2.click;
if key='3' then button3.click;
if key='4' then button4.click;
if key='5' then button5.click;
if key='6' then button6.click;
if key='7' then button7.click;
if key='8' then button8.click;
if key='9' then button9.click;
if key='0' then button10.click;
if (key=',') or (key='.') then button11.click;
if key='n' then button12.click;
if key=chr(13) then button13.click;
if key='-' then button14.click;
if key='+' then button15.click;
if key='*' then button16.click;
if key='/' then button17.click;
if key=chr(8) then button19.click;
if key='h' then kombi:='h';
if (kombi='h') and (key='e') then kombi:='he'; <==== an der Stelle hapert es wohl :wall:
if kombi='he' then showmessage('huhu') else kombi:='';
end;
Hoffe ihr findet meinen Fehler und danke schonmal im Voraus.
Gruß
Stefan