archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • event handler in the OnKeyDown That never gets called when the child has focus If I also hold down the Alt key it DOES get called I don t however want to have to hold the Alt key just to get the action I want Anybody have any good clues for me Add a handler for the CM DIALOGKEY message to the form This is simply a WM KEYDOWN message

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0316c.txt (2016-02-14)
    Open archived version from archive



  • the foreground window though unit Unit1 interface uses Windows Messages SysUtils Classes Graphics Controls Forms Dialogs StdCtrls ExtCtrls type TForm1 class TForm Memo1 TMemo Panel1 TPanel Button1 TButton procedure Button1Click Sender TObject private Private declarations public Public declarations Procedure EnumChildren aWnd HWND end var Form1 TForm1 implementation R DFM var indent Integer 0 procedure TForm1 Button1Click Sender TObject begin memo1 clear EnumChildren FindWindow tty 0 end Procedure PostKeyEx32 Parameters key virtual keycode of the key to send For printable keys this is simply the ANSI code Ord character shift state of the modifier keys This is a set so you can set several of these keys shift control alt mouse buttons in tandem The TShiftState type is declared in the Classes Unit specialkey normally this should be False Set it to True to specify a key on the numeric keypad for example Description Uses keybd event to manufacture a series of key events matching the passed parameters The events go to the control with focus Note that for characters key is always the upper case version of the character Sending without any modifier keys will result in a lower case character sending it with ssShift will result in an upper case character Created 17 7 98 by P Below Procedure PostKeyEx32 key Word Const shift TShiftState specialkey Boolean Type TShiftKeyInfo Record shift Byte vkey Byte End byteset Set of 0 7 Const shiftkeys Array 1 3 of TShiftKeyInfo shift Ord ssCtrl vkey VK CONTROL shift Ord ssShift vkey VK SHIFT shift Ord ssAlt vkey VK MENU Var flag DWORD bShift ByteSet absolute shift i Integer Begin For i 1 To 3 Do Begin If shiftkeys i shift In bShift Then keybd event shiftkeys i vkey MapVirtualKey shiftkeys i vkey 0 0 0 End For If specialkey Then flag KEYEVENTF EXTENDEDKEY

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0311c.txt (2016-02-14)
    Open archived version from archive


  • Message ID Content Transfer Encoding 8bit References Content Type text plain charset iso 8859 1 Organization TeamB Mime Version 1 0 Reply To 100113 1101 compuXXserve com Newsgroups borland public delphi winapi Procedure SetLockKey vcode Integer down Boolean Begin If Odd GetAsyncKeyState vcode down Then begin keybd event vcode MapVirtualkey vcode 0 KEYEVENTF EXTENDEDKEY 0 keybd event vcode MapVirtualkey vcode 0 KEYEVENTF EXTENDEDKEY or KEYEVENTF KEYUP 0 end End SetLockKey

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0415b.txt (2016-02-14)
    Open archived version from archive


  • delphi objectpascal In article Nab wrote I want every editing component to have the apropriate language and capitalization so the user don t need to change this manualy with the key stroke Alt Shift and Caps Lock Ho can I do this programmaticaly For the first look at LoadKeyboardLayout ActivateKeyboardlayout GetKeyboadlayout in win32 hlp For the second you can use Procedure SetLockKey vcode Integer down Boolean Begin If Odd GetAsyncKeyState

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0626b.txt (2016-02-14)
    Open archived version from archive


  • used the GetKeyState function which does the trick My function is entered here for anyone else who is interested Thanks for your help Ian procedure TForm1 SetLockKey vcode Integer Down Boolean begin if Odd GetKeyState vcode wrote in message I am trying to turn NUMLOCK on an off under program control in NT4 using Delphi 4 but am failing Does anyone have any solutions please Ian Procedure SetLockKey vcode Integer

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0219a.txt (2016-02-14)
    Open archived version from archive


  • TeamB Reply To d pate cableinet co not this bit uk References NNTP Posting Host 213 48 99 205 X Trace dnews 992172638 213 48 99 205 10 Jun 2001 04 30 38 0700 Lines 23 Path dnews Xref dnews borland public delphi oleautomation 36494 Some examples Excel Range A5 A5 Formula SUM R1C1 R4C1 WS Range C1 C1 Formula SUM A1 B1 WS Range C1 C1 AutoFill WS Range

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0610.txt (2016-02-14)
    Open archived version from archive


  • 100113 1101 compuXXserve com Newsgroups borland public delphi vcl components using borland public delphi oleautomation borland public delphi winapi What s the Cleanest way to close MsWord from another application like an installation application I still want word to go through its normal closing procedure asking user to save unsaved docs Right now I m using sendmessage wordhandle wm close 0 0 Is that the best way Use postmessage wordhandle

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0401.txt (2016-02-14)
    Open archived version from archive


  • F File const Row Col Word const Value SmallInt type BIFF INTEGER packed record recnum Word size Word rw Word col Word ixfe array 0 2 of Byte num SmallInt end const B BIFF INTEGER recnum 0002 size 9 rw 0 col 0 ixfe 00 00 00 num 0 begin B rw Row B col Col B num Value BlockWrite F B SizeOf B end procedure WriteNUMBER var F File const Row Col Word const Value Double type BIFF NUMBER packed record recnum Word size Word rw Word col Word ixfe array 0 2 of Byte num Double end const B BIFF NUMBER recnum 0003 size 15 rw 0 col 0 ixfe 00 00 00 num 0 0 begin B rw Row B col Col B num Value BlockWrite F B SizeOf B end procedure WriteLABEL var F File const Row Col Word const Value String type BIFF LABEL packed record recnum Word size Word rw Word col Word ixfe array 0 2 of Byte cch Byte end const B BIFF LABEL recnum 0004 size 9 rw 0 col 0 ixfe 00 00 00 cch 0 begin B size 8 Length Value B rw Row B col Col B cch Length Value BlockWrite F B SizeOf B BlockWrite F PChar Value Length Value end procedure WriteBOOLERR var F File const Row Col Word const Value Boolean type BIFF BOOLERR packed record recnum Word size Word rw Word col Word ixfe array 0 2 of Byte bBoolErr Byte fError Byte end const B BIFF BOOLERR recnum 0005 size 9 rw 0 col 0 ixfe 00 00 00 bBoolErr 0 fError 0 begin B rw Row B col Col if Value then B bBoolErr 1 else B bBoolErr 0 BlockWrite F B SizeOf B end procedure WriteEOF var F File type BIFF

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0128b.txt (2016-02-14)
    Open archived version from archive



  •