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
key:= nil; zu.
du könntest auch mit einer maskedit arbeiten. wie das funktioniert weiß ich allerdings net so genau

Hallo,

markieren

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

**Chriss**

Zitat von Daniel B:

Hallo,

markieren

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

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

Zitat:

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

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

Zitat von Chriss:

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

Ja natürlich.

Ich hab genau das Gegenteil gemacht.

Und wenn dann eher 1..0! Und Dein ,.

Grüsse, Daniel

**Tpercon**

markieren

Delphi-Quellcode:

			If not(key in [#48..#57,#8])

 then key := #0;

Gruß

**Chriss**

danke, das funktioniert super!

**jonnybbg**

markieren

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

**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ß

Hi Thomas,

Zitat von Tpercon:

Und #8 ist Return und nicht Tabulator!!!

Nennen wir es mal BackSpace, also Löschen.

Grüsse, Daniel

MadMason Registriert seit: 9. Nov 2002 Ort: Altenburg 126 Beiträge Delphi 2005 Architect	#2 29. Jan 2003, 17:04 im OnKeyPress des ereignesses fragst du einfach ab, welcher buchstabe gedrückt wurde. wenn der buchstabe nicht benuzt werden soll, weist du einfach key:= nil; zu. du könntest auch mit einer maskedit arbeiten. wie das funktioniert weiß ich allerdings net so genau Einstein ist tot Newton ist tot und mir ist auch schon ganz schlecht
	Zitat

Daniel B (Gast) n/a Beiträge	#3 29. Jan 2003, 17:05 Hallo, markieren 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
	Zitat

Daniel B (Gast) n/a Beiträge	#5 29. Jan 2003, 17:18 Zitat von Chriss: ['0'..'1', ','] reinschreiben? Ja natürlich. Ich hab genau das Gegenteil gemacht. Und wenn dann eher 1..0! Und Dein ,. Grüsse, Daniel
	Zitat

Tpercon Registriert seit: 7. Jun 2002 638 Beiträge Delphi 5 Professional	#6 29. Jan 2003, 17:45 markieren Delphi-Quellcode: If not(key in [#48..#57,#8]) then key := #0; Gruß
	Zitat

Chriss Registriert seit: 6. Aug 2002 Ort: Ahlen 124 Beiträge Delphi 7 Enterprise	#7 29. Jan 2003, 17:55 danke, das funktioniert super! I'll be right there - I'll never leave - All I ask of you is ~ Believe (Christopher Michael Oliva ~ 1963-1993 [Savatage]
	Zitat

jonnybbg Registriert seit: 21. Jan 2003 Ort: Bernburg 9 Beiträge Delphi 6 Personal	#8 29. Jan 2003, 19:48 markieren 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 Meine Mama sagt: "Dumm ist der der dummes tut." *Forest Gump" NEU www.jonnybbg.de NEU
	Zitat

Tpercon Registriert seit: 7. Jun 2002 638 Beiträge Delphi 5 Professional	#9 29. Jan 2003, 20:24 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ß
	Zitat

Daniel B (Gast) n/a Beiträge	#10 29. Jan 2003, 20:28 Hi Thomas, Zitat von Tpercon: Und #8 ist Return und nicht Tabulator!!! Nennen wir es mal BackSpace, also Löschen. Grüsse, Daniel
	Zitat

Buchstaben verhindern!

Buchstaben verhindern!

Forumregeln