reagere selvom der ikke er fokus?
Kan man gøre sådan at sit program reagere på en række taste tryk efter hinanden, selv om formen ikke har fokus, F. eks. hvis den er minimeret?her er min kode til tastetrykkende:
var
Form1: TForm1;
cheat: boolean;
i: integer;
const
keyword: array [0..10] of char = ('s','h','u','t','d','o','w','n',' ','-','a');
procedure TForm1.FormCreate(Sender: TObject);
begin
i := 0;
cheat := false;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = keyword[i] then
begin
if i = 10 then
begin
form1.Caption := 'Snyd';
cheat := true;
i := 0;
end
else
begin
i := i+1;
end
end;
end;
