Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Zeichenketten schreiben lassen (https://www.delphipraxis.net/143715-zeichenketten-schreiben-lassen.html)

Jake 21. Nov 2009 22:07


Zeichenketten schreiben lassen
 
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.

Luckie 21. Nov 2009 22:08

Aussagekräftiger Titel
 
Bitte gib deinem Beitrag einen aussagekräftigen Titel. Der jetzige Titel lässt nicht erkennen, um was für ein Problem oder Frage es sich handelt. Um den Titel zu ändern, editiere einfach deinen ersten Beitrag. Damit erleichterst du das Auffinden deines Beitrages mit der Suche und ersparst anderen Mitglieder ein unnötiges Öffnen deines Beitrages.

Luckie 21. Nov 2009 22:10

Re: For Schleife
 
Das erste Zeichen in einem Edit ist: Edit1.Text[1].

Und ich habe dich schon in deinem anderem Thread gefragt was eigentlich ein "KeyBinder" ist bzw. was du darunter verstehst.

Wolfgang Mix 21. Nov 2009 22:14

Re: For Schleife
 
@jake
Zitat:

Wenn ich F2+1 drücke schreibt er jede Sekunde ein "T".
Wer oder was ist Er?

Gruß

Wolfgang

Jake 21. Nov 2009 22:25

Re: Zeichenketten schreiben lassen
 
-.-
Das Programm.

Mit
Zitat:

Das erste Zeichen in einem Edit ist: Edit1.Text[1].
bin ich schon ein bisschen weitergekommen.

Nur das Problem ist, das ich jetzt für jedes Zeichen in einer EditBox das jeweilige Zeichen (Edit1.Text[1] usw.) schreiben muss und ich nicht weiß wieviel Zeichen er belegt. Wenn ich sagen wir mal 20 Zeichen wiedergeben kann und er belegt 5 in der EditBox z.B. Hallo, dann sieht das so aus:
Hallo22ee2eee2ee2e2e

Jake 22. Nov 2009 00:03

Re: Zeichenketten schreiben lassen
 
//push

Weiß denn keiner was?

Luckie 22. Nov 2009 01:41

Re: Zeichenketten schreiben lassen
 
Zitat:

Zitat von Jake
//push

Weiß denn keiner was?

Hast du mal auf die Uhr geguckt? Es ist Samstagnacht. :roll: Des Weiteren ist pushen erst nach Ablauf von 24 Stunden gemäß den Forenregeln gestattet.
[quote="Jake"]-.-
Das Programm.

Mit
Zitat:

Nur das Problem ist, das ich jetzt für jedes Zeichen in einer EditBox das jeweilige Zeichen (Edit1.Text[1] usw.) schreiben muss und ich nicht weiß wieviel Zeichen er belegt.
Zwei Überlegungen: Man könnte in einer Schleife die Zeichen des Eingabefeldes durchgehe. Die Länge des Textes kannst du mit Delphi-Referenz durchsuchenLength ermitteln.
Sind weniger Zeichen im Eingabefeld als wiedergegeben werden sollen, muss man die Schleife entsprechend oft wiederholen.

Und du hast uns immer noch nicht verraten, was ein [/i]KeyBinder[i] ist, oder was du dir darunter vorstellst. Es wäre eventuell auch hilfreich., wenn du uns langsam mal mitteilst, was du eigentlich vor hast.

Jake 22. Nov 2009 03:15

Re: Zeichenketten schreiben lassen
 
Du willst wissen was ein Keybinder ist dann benutz doch mal Google.

Ein Keybinder ist eine Art Tool, die hilft, in onlinespielen schnell texte oder befehle die man über den chat funktionieren einzutippen.
Meist werden 2 Tasten belegt (z.B. F2 + 1)

zufrieden?

und das mit dem pushen tut mir leid...

Der.Kaktus 22. Nov 2009 03:56

Re: For Schleife
 
Zitat:

Zitat von Wolfgang Mix
@jake
Zitat:

Wenn ich F2+1 drücke schreibt er jede Sekunde ein "T".
Wer oder was ist Er?

Gruß

Wolfgang

[OT]Er ist der Geist..der Computer *loool*[/OT]


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:23 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz