simulate alt + shift + y to activex component

**haidomingo**

Hello everyone
how to send via TButton
Shift + Control + Shift + control + y and v
Tacropdf control in the same form?
Thanks

**haidomingo**

zusammenfalten · markieren

Delphi-Quellcode:

			AcroPDF1.SetFocus;

     keybd_event(VK_SHIFT,  Mapvirtualkey(VK_SHIFT, 0), 0, 0);

     keybd_event(VK_CONTROL, Mapvirtualkey(VK_CONTROL, 0 ), 0, 0);

     keybd_event( Ord('Y'), MapvirtualKey( Ord('Y'), 0), 0, 0);

     keybd_event( Ord('Y'), MapvirtualKey( Ord('Y'), 0), KEYEVENTF_KEYUP,0);

     keybd_event(VK_CONTROL, Mapvirtualkey(VK_CONTROL, 0 ), KEYEVENTF_KEYUP,0);

     keybd_event(VK_SHIFT,  Mapvirtualkey(VK_SHIFT, 0), KEYEVENTF_KEYUP, 0);

   //  Sleep(100);

     keybd_event(VK_SHIFT,  Mapvirtualkey(VK_SHIFT, 0), 0, 0);

     keybd_event(VK_CONTROL, Mapvirtualkey(VK_CONTROL, 0 ), 0, 0);

     keybd_event( Ord('V'), MapvirtualKey( Ord('V'), 0), 0, 0);

     keybd_event( Ord('V'), MapvirtualKey( Ord('V'), 0), KEYEVENTF_KEYUP,0);

     keybd_event(VK_CONTROL, Mapvirtualkey(VK_CONTROL, 0 ), KEYEVENTF_KEYUP,0);

     keybd_event(VK_SHIFT,  Mapvirtualkey(VK_SHIFT, 0), KEYEVENTF_KEYUP, 0);

Thanks

simulate alt + shift + y to activex component

simulate alt + shift + y to activex component

AW: simulate alt + shift + y to activex component

Forumregeln

haidomingo Registriert seit: 22. Jul 2009 23 Beiträge	#1 simulate alt + shift + y to activex component 3. Jan 2011, 09:53 Hello everyone how to send via TButton Shift + Control + Shift + control + y and v Tacropdf control in the same form? Thanks
	Zitat