Heyhey liebe DPler.
Ich bin gerade dabei ein ganz kleines Programm für einen Freund zu schreiben doch hier bin ich auf ein Problem gestoßen. Ich benutze folgenden Code:
Delphi-Quellcode:
function KeyPressed(Key: Integer): Boolean;
begin
KeyPressed := (GetAsyncKeyState(Key) and $8000 <> 0);
end;
....
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if KeyPressed(ord('a')) then
edit1.Text := edit1.Text + 'a';
....
So wenn ich aber jetzt das Programm starte und z.B. einen Texteditor öffne und in diesen z.B. ein a drücke escheint kein a in dem edit.
Ach ja ich habe den Timer auf Interval 1 und er ist Enabled = true
