Hi,
Okay, passt. Merkwürdigerweise funktioniert die Prozedur. Aber ich weiß nicht, wieso... xD
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
var
iStr: string;
i: integer;
iStrL: integer;
f: string;
begin
sleep(1000); // Damit ich Zeit habe Edit2 anzuklicken
iStr := Edit1.Text;
iStrL := Length(iStr);
for i := 1 to iStrL do begin
f := iStr[1];
// erstes zeichen auslesen, tippen, löschen.
if f = UpperCase(iStr[1]) then PostKeyEx32(Ord(iStr[1]), [ssShift], false)
else begin
f := UpperCase(iStr[1]);
PostKeyEx32(Ord(f[1]), [], false);
end;
Delete(iStr, 1, 1);
end;
end;
Die Prozedur liest aus dem Edit1 aus und tippt virtuell. Allerdings muss ich ja irgendwas eingebbares markieren, darum die Verzögerung.
NACHTRAG:
-------------
Ich bin zu blöde.. ich wollte
Delete(iStr[1], 1, 1);
machen, und habe mich gewundert, wieso
Delete(iStr, 1, 1);
funktioniert hat. Das löscht eh das erste Zeichen...
