Tastaturdruck Emulieren

[Alexander]

schreib mal statt
label1.Caption := IntToStr(StrToInt(label1.Caption)+1); das hier
label1.Caption := label1.Caption + IntToStr(i);

[Christian Seehase]

Moin Silent,

genau den meinte ich, und da stand auch noch:

Zitat von Christian Seehase:

Ein Tastendruck setzt sich aus zwei SendMessage zusammen. Einmal um das Drücken der Taste zu simulieren, ein zweites mal für das Loslassen.

Demzufolge kann das was Du da oben gepostet hast nicht funktionieren
Erst wird die Taste VK_DOWN losgelassen, dann die Taste VK_UP losgelassen. Nur gedrückt werden sie nicht.

[Pseudemys Nelsoni]

dann wird eine 0 nach der anderen der label1.caption angefügt, der zugriffsfehler kommt trotzdem:

http://www.angelfire.com/bug/delphi/zfehler.JPG


es ist nur der code im button, also ist alles andere auszuschliessen

[Pseudemys Nelsoni]

@Christian: oh, das hab ich nicht bemerkt, wie drücke ich sie denn, "press" ?

mal mit keydown testen

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(self.Handle,WM_KEYDOWN,VK_DOWN,0);
  SendMessage(self.Handle,WM_KEYUP,VK_UP,0);
end;

so geht es aber auch nicht O_o

[Christian Seehase]

Moin Silent,

kann ja auch nicht.
Du drückst VK_DOWN und lässt VK_UP los.

[Pseudemys Nelsoni]

hm, wie geht es dann? teste schon fast ne stunde

[Christian Seehase]

Moin Silent,

ist doch ganz einfach:

Um einen Tastendruck zu simulieren, muss eine Taste gedrückt und dann wieder losgelassen werden, wie ich weiter oben, und in dem schon besprochenen anderen Thread gesagt habe, also statt:

Code:

SendMessage(self.Handle,WM_KEYDOWN,[color=red]VK_DOWN[/color],0); 
SendMessage(self.Handle,WM_KEYUP,[color=red]VK_UP[/color],0);

muss es

Code:

SendMessage(self.Handle,WM_KEYDOWN,[color=red]VK_DOWN[/color],0); 
SendMessage(self.Handle,WM_KEYUP,[color=red]VK_DOWN[/color],0);

heissen.

[Pseudemys Nelsoni]

Hallo Christian,

bei einem druck auf dem button passiert einfach nichts, das heisst das andere programm registriert das nicht als tastendruck, wenn ich normal tippe wird für jeden druck die variable des anderen programms um 1 erhöht, aber per button geht das einfach nicht, gibt es da noch eine alternative?

Erstmal danke für die hilfe

[Luckie]

Schick eine BN_CLICK an den Button.