Hallo
DP
Ich habe für meinen Keybinder folgenden Code zusammengestellt:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var Key:integer;
begin
if GetAsyncKeyState(Vk_F2)<>0 then begin
if GetAsyncKeyState(ord('1'))<>0 then begin
key:=VKKEYscan('T');
keybd_event(key, 0,0,0);
keybd_event(key,0,2,0);
end
end;
end;
Wenn ich F2+1 drücke schreibt er jede Sekunde ein "T".
Nun will ich aber einen Text aus einem Edit Feld (z.B. Edit1.Text) per Tastendruck (F2+1) automatisch geschrieben haben.
Hat jemand eine Ahnung wie man das schreibt?
Ich dachte da an eine Schleife, die die Zeichen hintereinander abfragt.