Buchstaben verhindern!

[Chriss]

Hi @ all!

Ich möchte gerne verhindern, dass ich in ein Edit Buchstaben schreiben kann. Entweder soll das überhaupt nicht funktionieren (= keine Reaktion beim tippen auf den Buchstaben) oder es soll eine Fehlermessage kommen!
Ich weiss, dass das bei Sql mit "Is not numeric" geht, aber bei Delphi?! kA

Kann mir jemand helfen!?

[MadMason]

im OnKeyPress des ereignesses fragst du einfach ab, welcher buchstabe gedrückt wurde.
wenn der buchstabe nicht benuzt werden soll, weist du einfach

Delphi-Quellcode:

key:= nil;

zu.
du könntest auch mit einer maskedit arbeiten. wie das funktioniert weiß ich allerdings net so genau

[Daniel B]

Hallo,

Delphi-Quellcode:

if not (Key in ['a'..'z', 'A'..'Z']) then
  Key := #0;

Das ganze schreibst Du im OnKeyPress des Edit-Feldes.

Grüsse, Daniel :hi:

[Chriss]

Zitat:

Zitat von Daniel B

Hallo,

Delphi-Quellcode:

if not (Key in ['a'..'z', 'A'..'Z']) then
  Key := #0;

Das ganze schreibst Du im OnKeyPress des Edit-Feldes.

Grüsse, Daniel :hi:

damit kann ich aber immernoch buchstaben eingeben, oder sollte ich da mal statt

Zitat:

['a'..'z', 'A'..'Z']

['0'..'1', ','] reinschreiben?

[Daniel B]

Zitat:

Zitat von Chriss

['0'..'1', ','] reinschreiben?

:wall: Ja natürlich. :wall: Ich hab genau das Gegenteil gemacht. :oops:
Und wenn dann eher 1..0! Und Dein ,.

Grüsse, Daniel :hi:

[Tpercon]

Delphi-Quellcode:

If not(key in [#48..#57,#8])
 then key := #0;

Gruß

[Chriss]

danke, das funktioniert super!

[jonnybbg]

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(sender: TObject; var key: Char);
begin
  if not (key in [#8, #9, #48 .. #57]) then key:=#0;
end;

Hiermit kann man die Eingabe auf nur Zahlen beschränken. Die Tabulator und Entertaste wird auch noch frei gelassen.


mfg



:coder:

[Tpercon]

Das ist ja genau die gleiche Lösung wie meine, mit dem Zusatz der Entertaste, nur was will man mit der Entertaste? Und #8 ist Return und nicht Tabulator!!!

Gruß

[Daniel B]

Hi Thomas,

Zitat:

Zitat von Tpercon

Und #8 ist Return und nicht Tabulator!!!

Nennen wir es mal BackSpace, also Löschen. ;)

Grüsse, Daniel :hi:

[Marco Haffner]

Jupp, #8 ist Backspace, #9 ist Tabulator und #13 ist Return, oder war das jetzt #10. Bring #10 und #13 immer durcheinander.

[Daniel B]

Zitat:

Zitat von Marco Haffner

Jupp, #8 ist Backspace, #9 ist Tabulator und #13 ist Return, oder war das jetzt #10. Bring #10 und #13 immer durcheinander.

#10 ist LF = Line Feed
#13 ist CR = Carriage Return
Im "prinzip" alles das gleiche.
Wenn Du was in einer Message mit Umbruch schreibst und umbrechen willst, dann solltest Du unter Windows immer CRLF benutzen.
also #13#10 zusammen!!!

Grüsse, Daniel :hi:

[Hansa]

#10 ist Line-Feed #13 Return oder Enter, aber was wollt ihr damit ? Aus dem Edit Feld kommt man standardmäßig nur mit Tab raus.

Gruß
Hansa

[Daniel B]

Zitat:

Zitat von Hansa

Aus dem Edit Feld kommt man standardmäßig nur mit Tab raus.

Oder mit dem Hammer. ;)
Aber man könnte durchaus Enter abfragen und bei Druck, den Fokus ins nächste Edit setzen, somit durchaus brauchbar. Und auch sinnvoll mMn..

Grüsse, Daniel :hi:

[Tpercon]

Zitat:

Zitat von Daniel B

Aber man könnte durchaus Enter abfragen und bei Druck, den Fokus ins nächste Edit setzen, somit durchaus brauchbar.

Genau, daher ist es nicht sinnvoll, dass mit in die Menge hineinzunehmen, sondern eine Abfrage auf Enter gesondern zu schreiben, deshalb ist die Lösung

Delphi-Quellcode:

If not(key in [#48..#57,#8])
then key := #0;

meiner Meinung nach, die einzig sinnvolle! Enter und der Kram muß da drin außen vor bleiben!

Gruß

[Daniel B]

Zitat:

Zitat von Tpercon

Genau, daher ist es nicht sinnvoll, dass mit in die Menge hineinzunehmen, sondern eine Abfrage auf Enter gesondern zu schreiben

Stimmt auch wieder!

Grüsse, Daniel :hi:

[Tpercon]

Danke, damit ist das jetzt auch geklärt :wink:

Gruß

[Hansa]

Das meinte ich. Notfalls hier weitermachen,falls nötig, denn da fängt alles wieder an :

http://www.delphipraxis.net/viewtopi...highlight=beep


Gruß
Hansa

[grayfox]

hi folks! :)

wieso machts denn das so kompliziert?
wenn keine buchstaben eingetippt werden sollen, dann reicht doch:

Code:

if (Key in ['a'..'z', 'A'..'Z']) then 
  Key := #0;

mfg, stefan

[Daniel B]

Hallo,

Zitat:

Zitat von grayfox

wenn keine buchstaben eingetippt werden sollen, dann reicht doch:

Code:

if (Key in ['a'..'z', 'A'..'Z']) then 
  Key := #0;

Das geht zwar, aber Du hast noch die ganzen Sonderzeichen drin.
Aber bei "if not (Key in ['1'..'0']) then" hast Du dann einfach alles weg, Buchstaben, sowie Sonderzeichen.
Somit ist die Auflistung viel kürzer.

Grüsse, Daniel :hi: