Hallo inherited,
mir war schon klar, dass du den else-Teil meintest aber irgendwie funktioniert deine Lösung trotzdem nicht.
Mit der anderen Lösung meinte ich, die mir von Hawkeye219 empfohlene Seite, auf der ein Tutorial zum Programmieren eines Eastereggs war. Aber es wäre trotzdem cool, deine Lösung umzusetzen, schon allein der Einfachheit halber.
Egal, hier auf jeden Fall mein Quelltext:
Code:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
var easterstring:string;
begin
easterstring:='';
case key of
'1' : button1.click;
'2' : button2.click;
'3' : button3.click;
'4' : button4.click;
'5' : button5.click;
'6' : button6.click;
'7' : button7.click;
'8' : button8.click;
'9' : button9.click;
'0' : button10.click;
',' : button11.click;
'.' : button11.click;
'n' : button12.click;
chr(13) : button13.click;
'-' : button14.click;
'+' : button15.click;
'*' : button16.click;
'/' : button17.click;
chr(8) : button19.click;
'p' : button20.click;
'w' : button21.click;
'q' : button22.click;
'r' : button23.click;
else
begin
easterstring:=easterstring+key;
if Copy('test', 1, Length(easterstring))<>easterstring then easterstring:=''
else showmessage('hey');
end;
end;
end;
Wahrscheinlich hab ich den Copy-Befehl missverstanden, denn jetzt kommt die Botschaft schon allein, wenn ich nur t drücke.
Danke schonmal im Voraus für die Lösung des Problems...
Gruß
Stefan