whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1541)

Database (90)
Files (137)
Forms (107)
Graphic (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Math (76)
Misc (126)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (266)
VCL (242)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

48 Visitors Online


 
...making the Enter Key act like Tab?
Autor: Fatih Ölçer
[ Print tip ]  

Tip Rating (8):  
     


{
  This code gives the  key the same habbit as the key to
  change focus between Controls.

  Mit diesem Code kann man sich mit der Enter Taste zwischen mehreren
  Textfeldern bewegen.(anstatt nur mit der Tabulatortaste)
}

// Form1.KeyPreview := True !

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if 
Key = #13 then
  begin
    
Key := #0;
    { check if SHIFT - Key is pressed }
    
if GetKeyState(VK_Shift) and $8000 <> 0 then
      
PostMessage(Handle, WM_NEXTDLGCTL, 1, 0)
    else
      
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
  end;
end;



 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners