Hi an alle.
Ich habe zum einstieg in ein größeres Projekt ersteinmal ein kleines programmiert, um einen Teil von jenem ersteinmal auszuprobieren.
Ich habe in Edit1 einen Text stehen, sagen wir "Hallo". Nun habe ich neben dem Edit1 ein Memo1. In der Form1.Create steht logischerweise nun dies:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := 'Hallo';
end; |
Zudem befindet sich auf dem Formular noch ein Timer(1).
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.Timer1Timer(Sender: TObject);
var ID: Integer;
begin
for ID := 1 to length(Edit1.Text) do
begin
keybd_event(Ord(Edit1.Text[ID]),0,0,0);
end;
end; |
Wenn ich nun das Projekt starte und nach dem Start auf das Memo1 klicke, erscheint/"schreibt der PC" die ganze Zeit folgendes:
h1/h1/h1/h1/
Bin ich einfach zu doof (so früh am Morgen^^) oder verbirgt sich dahinter ein anderes Problem.
Danke schonmal für alle Antworten.
MfG Swordooo
