Forum: Object-Pascal / Delphi-Language
by derseitzer,
31. Jan 2017
haentschman wie gesagt, ich wollte einfach mal einen Text schreiben über simulierte Tasten, mehr nicht :-D
Ich gebe einen String vor und die Anzahl der Wiederholungen. die Checkbox macht eben das return, oder eben kein return zischen den Wiederholungen..
beispiel: string: ABC, WDH: 5, checkbox:=True ->
ABC
ABC
ABC
ABC
ABC
Forum: Object-Pascal / Delphi-Language
by derseitzer,
31. Jan 2017
ehrlich gesagt weiß ich das selber nicht genau:)
Ich wollte einfach erstmal einen Text schreiben indem ich Tastendrücke simuliere und wollte auch ein "Return" simulieren können:)
Also so wirklich die Idee dahinter hatte ich nicht :|
t.roller dein Code hat geklappt wie gesagt, ich habe ihn nur falsch angewendet.. er wurde nie ausgeführt, dort, wo ich ihn als erstes implementiert hatte:)....
Forum: Object-Pascal / Delphi-Language
by derseitzer,
31. Jan 2017
hab meinen Fehler gefunden:) Diese Entertaste die ich oben implementiert habe zu simulieren, wird nie ausgeführt, da der Code durchlaufen wird, dann eben die Schleife und das wars.. Habe den Code also einfach falsch implementiert :oops:
Forum: Object-Pascal / Delphi-Language
by derseitzer,
31. Jan 2017
{$POINTERMATH ON}
procedure TForm1.SendKeys(const S: String);
var
InputEvents: PInput;
I, J: Integer;
begin
if S = '' then
begin
if Checkbox1.checked=True then
Forum: Object-Pascal / Delphi-Language
by derseitzer,
30. Jan 2017
Vielen Dank!! noch eine Frage: wenn ich in meiner sendkeys funktion etwas auf meiner Tform einbinden will (z.b. ein label1) erkennt mein Programm das nicht, wahrscheinlich weil ich in der funktion nur "(const S: String)" übergebe..
siehe Code... wie baue ich noch den "Sender: TObejct" ein? so: (Sender: TObject, const S: String); funktioniert nicht :/
Forum: Object-Pascal / Delphi-Language
by derseitzer,
30. Jan 2017
Hey Leute,
Ich habe im Internet diesen Code gefunden der auch einwandfrei funktioniert:
uses
Windows;
{$POINTERMATH ON}
procedure SendKeys(const S: String);
var
InputEvents: PInput;
