Text mittels Keybd_Event markieren (VK_Shift)

[Cyberstorm]

Ich probiere mit folgendem Code z.B. 3 Zeichen zu markieren.
Nach links geht er dabei jedoch ohne zu markieren :-/

Code:

KeyBd_Event(VK_SHIFT, 0, 0, 0);
for i:=1 to 3 do
  begin
    KeyBd_Event(VK_LEFT, 0, 0, 0);
    KeyBd_Event(VK_LEFT, 0, KEYEVENTF_KEYUP, 0);
  end;
KeyBd_Event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);

[Cyberstorm]

habs schon.

es muss VK_RShift genommen werden (warum auch immer). Mit VK_LShift und VK_Shift funzt es nicht *strange*

[Cyberstorm]

bräuchte hier doch nochmal hilfe:

sobald ich RSHIFT simuliere und dazwischen noch die VK_Left's bringt das KEYUP nichts mehr und rshift "verklemmt" sich bis ichs auf der tastatur drücke.

völlig egal, ob ich danach noch 20 keyup events sende oder keydown/up.
wenn ich zwischen down und up jedoch andere tasten (z.b. "a") simuliere passiert das nicht.

ist das mit dem code bei euch auch so? (einfach mal in nen 5sek timer hauen und nem memo oder so testen, ob sich rshift verklemmt (an den anfang vom memo klicken z.b.)

Delphi-Quellcode:

  KeyBd_Event(VK_RSHIFT, 0, 0, 0);
   for i:=1 to 5 do
    begin
      KeyBd_Event(VK_LEFT, 0, 0, 0);
      KeyBd_Event(VK_LEFT, 0, KEYEVENTF_KEYUP, 0);
    end;
  KeyBd_Event(VK_RSHIFT, 0, KEYEVENTF_KEYUP, 0);
end;

danke schonmal

[Luckie]

Warum ermittelst du nicht das Handle von dem Edit und schickst eine EM_SETSEL Nachricht an das Fenster?

[Cyberstorm]

Gibt es denn eine Möglichkeit das Handle des aktuellen Feldes zu ermitteln?

Grüße
Konrad

[Cyberstorm]

Falls es noch wer sucht:

Delphi-Quellcode:

function GetFocusedControl: HWnd;
var
  tid: Cardinal;
  hw: HWND;
begin
  hw := GetForegroundWindow;
  tid := GetWindowThreadProcessID(hw, nil);
  if AttachThreadInput(GetCurrentThreadID, tid, true)
    then Result := GetFocus
    else Result := HWND(-1);
  AttachThreadInput(GetCurrentThreadID, tid, false);
end;

Quelle: http://www.delphipraxis.net/internal...aktives+handle