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

39 Visitors Online


 
...in einem TEdit Feld nur Zahleneingaben erlauben?
Autor: Thomas Stutz
[ Tip ausdrucken ]  

Tip Bewertung (5):  
     


uses
 
ClipBrd;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  
Mgs: TMsg;

  procedure EatKey;
  { Clear Keyboardbuffer / Tastaturbuffer leeren }
  
begin
    
PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
  end;

begin
  
{ Check if control pressed / überprüfen, ob Control Taste gedrückt }
  
if (ssCtrl in Shift) then
    case 
key of
      
{ Ctrl + v }
      
86:
        begin
          
{ determine if the Clipboard contains a string type }
          { überprüfen, ob es Text in der Zwischenablage hat }
          
if Clipboard.HasFormat(CF_TEXT) then
            
{ Check if text consists of numbers }
            { überprüfen, ob der Text aus Zahlen besteht }
            
try
              
StrToInt(Clipboard.AsText);
            except
              
{ If no then don't insert text }
              { Wenn nein, dann ignoriere das Einfügen }
              
EatKey
            end;
        end;
      { Ctrl + c }
      
67: { do nothing / nichts machen }
        
else
          
EatKey;
    end
  
{ else check for allowed characters such as BackSpace, RETURN...}
  { sonst auf erlaubte Zeichen überprüfen }
  
else if not (Char(Key) in [#8, #13, #46, #48..#57,#96..#105]) then EatKey;
end;

// Use your own Popup Menu to customize paste.

 

Bewerten Sie diesen Tipp:

dürftig
ausgezeichnet


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