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: