Sendkeys, "Enter" einbauen

[derseitzer]

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 :/

[HolgerX]

Hmm..

einfach mit

SendKeys(#13);

versucht?

[EWeiss]

Vielleicht hilfst..

gruss

[derseitzer]

Code:

{$POINTERMATH ON}
procedure TForm1.SendKeys(const S: String);
var
  InputEvents: PInput;
  I, J: Integer;
begin

  if S = '' then
  begin
    if Checkbox1.checked=True then
    begin
    Keybd_Event(VK_RETURN,0,0,0);                          //Taste drücken
    Keybd_Event(VK_RETURN,0,KEYEVENTF_KEYUP,0);            //Taste loslassen
    end;
    Exit;
  end;
  GetMem(InputEvents, SizeOf(TInput) * (Length(S) * 2));
  try
    J := 0;
    for I := 1 to Length(S) do
    begin
      InputEvents[J].Itype := INPUT_KEYBOARD;
      InputEvents[J].ki.wVk := 0;
      InputEvents[J].ki.wScan := Ord(S[I]);
      InputEvents[J].ki.dwFlags := KEYEVENTF_UNICODE;
      InputEvents[J].ki.time := 0;
      InputEvents[J].ki.dwExtraInfo := 0;
      Inc(J);
      InputEvents[J].Itype := INPUT_KEYBOARD;
      InputEvents[J].ki.wVk := 0;
      InputEvents[J].ki.wScan := Ord(S[I]);
      InputEvents[J].ki.dwFlags := KEYEVENTF_UNICODE or KEYEVENTF_KEYUP;
      InputEvents[J].ki.time := 0;
      InputEvents[J].ki.dwExtraInfo := 0;
      Inc(J);
    end;
    SendInput(J, InputEvents[0], SizeOf(TInput));
  finally
    FreeMem(InputEvents);
  end;
end;

Habe es hiermit probier, allerdings macht er immernoch kein Enter:/

[haentschman]

Moin...

Zitat:

Ich habe im Internet diesen Code gefunden der auch einwandfrei funktioniert:

Was hast du denn vor? Was soll der Code deiner Meinung nach tun?
Vieleicht gibt es auch was einfaches um mit ENTER zum nächsten Feld zu gelangen. (nur eine Vermutung)

[derseitzer]

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

[haentschman]

Zitat:

Was hast du denn vor? Was soll der Code deiner Meinung nach tun?

...bitte antworte noch auf die Rückfrage.