was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews
 sonstiges ¦  tutorials ¦  Add&Win Gewinnspiel

Tips (1541)

Dateien (137)
Datenbanken (90)
Drucken (35)
Grafik (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Mathematik (76)
Multimedia (45)
Oberfläche (107)
Objekte/
ActiveX (51)

OpenTools API (3)
Sonstiges (126)
Strings (83)
System (266)
VCL (242)

Tips sortiert nach
Komponente


Tip suchen

Tip hinzufügen

Add&Win Gewinnspiel

Werbung

22 Visitors Online


 
...die Enter Taste als Tabulator funktionieren lassen?
Autor: Fatih Ölçer
[ Tip ausdrucken ]  

Tip Bewertung (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;



 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


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