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".

  • way of disable the print screen key You can define it as a hotkey for your application and then ignore it type TForm1 class TForm Button1 TButton Label1 TLabel Label2 TLabel private Private declarations procedure wmHotkey Var msg TWMHotkey message WM HOTKEY procedure WMActivate Var msg TWMActivate message WM ACTIVATE public Public declarations end var Form1 TForm1 implementation R DFM procedure tform1 wmHotkey Var msg TWMHotkey begin if msg HotKey

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



  • TForm1 class TForm Button1 TButton procedure FormCreate Sender TObject private Private declarations procedure AppMessage var AMessage TMsg var Handled Boolean public Public declarations end var Form1 TForm1 implementation R DFM procedure TForm1 AppMessage var AMessage TMsg var Handled Boolean begin if AMessage Message WM KEYDOWN then case AMessage wParam of VK ESCAPE ShowMessage What s yer problem end end procedure TForm1 FormCreate Sender TObject begin Application OnMessage AppMessage end end

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


  • borland public delphi objectpascal You can try Memo1 Perform WM VSCROLL MAKEWPARAM SB PAGEDOWN 0 0 or Memo1 Perform WM VSCROLL MAKEWPARAM SB PAGEUP 0 0 Alex Martin Hekster wrote in message Hello if the user presses the PageUp or PageDown button I want a TMemo wich not has the focus to act like if it has the focus Catching PageUp PageDown is not the problem I set the form

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


  • Unsubscribe Date 12 Apr 2001 07 00 50 0000 From delphigames yahoogroups com Reply To delphigames yahoogroups com To delphigames yahoogroups com Subject DelphiGames Digest Number 830 Content Type text plain Content Transfer Encoding 7bit X RCPT TO X UIDL 285745039 Status U Yahoo Groups Sponsor Secure your servers with 128 bit SSL encryption Grab your copy of VeriSign s FREE Guide Securing Your Web site for Business Get it now http us click yahoo com KVNB7A e WCAA bT0EAA stAVlB TM eGroup Info begin eGroup DelphiGames HomePage http turbo gamedev net Unsubscribe delphigames unsubscribe eGroups com end There are 2 messages in this issue Topics in this digest 1 Alt TAB From Alexei Menshikh 2 Re Alt TAB From Slavisa Milojkovic Message 1 Date Wed 11 Apr 2001 21 21 01 0400 From Alexei Menshikh Subject Alt TAB Hi all How can I ignore Alt TAB or Ctrl ESC in my application With respect Alexei Menshikh Non text portions of this message have been removed Message 2 Date Thu 12 Apr 2001 02 13 35 0200 From Slavisa Milojkovic Subject Re Alt TAB Hi Alexei Original Message From Alexei Menshikh How can I ignore Alt TAB or Ctrl ESC

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


  • How to make the focus go to the next control on the tab order when i press Enter Using Tab to navigate between child controls in a window is a Windows convention However it is possible to override this default behavior You can do this in Delphi once at the TForm level obviating the need to write a handler for each control First you have to force all keystrokes to be reviewed by the containing TForm prior to them being passed on to the individual child controls This is done by setting the KeyPreview property of the TForm to True The last step involves evaluating the keystrokes seen by the TForm and reacting to only the Enter key 13 or the Windows constant VK RETURN If the Enter key is encountered call the Perform method to move to the next child control with a call to the form s Perform method and then nullify the keystroke This is done in an OnKeyPress event procedure for the TForm procedure Form1 FormKeyPress Sender TObject var Key Char begin if Ord Key VK RETURN the Enter key then begin Always nullify keystrokes handled Key 0 Signal to move focus to next control Perform WM NEXTDLGCTL 0 0 end end A value of zero for the second parameter of Perform the WParam parameter moves focus to the next control in the tab order A value of negative one moves focus to the prior control in the tab order So you could trap for two keys and either move forward or back in one routine depending on the key pressed Below Enter moves to the next control and UpArrow to the prior control procedure TForm1 FormKeyUp Sender TObject var Key Word Shift TShiftState begin if Key in VK RETURN VK UP then begin if Key

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


  • Msg TWMKey message CM DIALOGKEY Then define in the implementation section the following Procedure TForm1 CMDialogKey Var Msg TWMKey Begin If NOT ActiveControl Is TButton Then If Msg Charcode 13 Then Msg Charcode 9 inherited End This little code grabs the windows message before the form process it and changes the ENTER key CharCode 13 to a TAB CharCode 9 You can add other filters if you want like NOT

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


  • borland delphi alt lang delphi comp lang pascal delphi misc Turn on KeyPreview and use the following code Under OnKeyPress if key 13 then begin key 0 Perform WM NEXTDLGCTL 0 0 end Jason Wallace SL Software DarkElf SLSoftware reno nv us Bomb Technician If you see me running try and keep up Nagels wrote in message news 7ljbt9 rmi 1 news1 skynet be Hello does anyone know how I

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


  • TMessageEvent procedure AppMessage var Msg TMsg var Handled Boolean public Public Deklarationen end var FrmHndlTab TFrmHndlTab implementation R DFM procedure TFrmHndlTab AppMessage var Msg TMsg var Handled Boolean begin if Msg Message WM KEYDOWN then if Msg wParam VK TAB then begin if GetKeyState VK SHIFT In my app I have KeyPreview for the form set to TRUE this traps the keystrokes in one spot and I can coordinate everything

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



  •