Einzelnen Beitrag anzeigen

Dumpfbacke

Registriert seit: 10. Mär 2005
Ort: Mitten in Deutschland
310 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Shift Tab an andere Programm senden

  Alt 19. Aug 2015, 16:45
Hallo Leute,
so ganz langsam bin ich am verzweifeln.
Ich steuere ein fremdes Programm mit einen Programm von mir. Hierzu sende ich unter anderem Tastdrücke an das Programm. Das ganze funktioniert auch recht gut nur einen Rückschritt mittels Shift Tab bekomme ich einfachnicht hin. TAB, ALT TAB und STRG TAB funtionieren nur das blöde Zurück geht nicht.

Hier mal mein Code dazu. Eventuel kann mir jemand sagen wo es denn daran liegt. Ich verstehe es einfach nicht mehr. Dumm ist nur das das Programm welche ich steuern möchte den einen Button nur mittes Shift TAB zu erreichen ist. Ich habe auch schon versucht einfach einmal rundzulaufen nur das geht nicht da es dann das Feld überspringt. Blödes Teil

Delphi-Quellcode:
else if Pos('Tab',Macro)<>0
    then
     begin
      keybd_event(vk_TAB,0,0,0);
      keybd_event(vk_TAB,0,keyeventf_keyup,0);

     end

 //Tab senden
   else if Pos('Shift Tab',Macro)<>0
    then
     begin
      keybd_event(VK_Shift ,0,0,0);
      keybd_event(vk_TAB,0,0,0);
      keybd_event(vk_TAB,0,keyeventf_keyup,0);
     keybd_event(VK_Shift,0,keyeventf_keyup,0);
     end
//Tab senden
   else if Pos('STRG Tab',Macro)<>0
    then
     begin
      keybd_event(vk_Control,0,0,0);
      keybd_event(vk_TAB,0,0,0);
      keybd_event(vk_TAB,0,keyeventf_keyup,0);
      keybd_event(vk_Control,0,keyeventf_keyup,0);
     end


   else if Pos('ALT Tab',Macro)<>0
    then
     begin
      keybd_event(vk_Menu,0,0,0);
      keybd_event(VK_TAB ,0,0,0);
      keybd_event(vk_Menu,0,keyeventf_keyup,0);
      keybd_event(VK_TAB ,0,keyeventf_keyup,0);


     end
Tanja
  Mit Zitat antworten Zitat