Registriert seit: 10. Mär 2005
Ort: Mitten in Deutschland
332 Beiträge
Delphi 10.2 Tokyo Professional
|
Shift Tab an andere Programm senden
19. Aug 2015, 17: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
|