AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Welche Taste wurde gedrückt

Ein Thema von nailor · begonnen am 13. Dez 2002 · letzter Beitrag vom 21. Dez 2002
 
Werner

Registriert seit: 20. Dez 2002
Ort: Berlin
3 Beiträge
 
Delphi 5 Enterprise
 
#10
  Alt 21. Dez 2002, 00:23
Hallo Nailor,

hier ein Beispiel, das Dein Problem m.E.
löst.

1. KeyPreview für das Formular auf true stellen

2. das Ereignis OnKeyPress auswerten

Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then key:= #0
  else if not (key in [#8, #46, #48 .. #57]) then key:= #0;
end;
RETURN (#13) wird über die Zuweisung key:= #0 unterdrückt.
Es werden nur die Zeichen
Backspace, Punkt und die Ziffern 0...9 durchgelassen.

Mit einer anderen Zuweisung als #0 kann man Zeichen auf ein
anderes umbiegen.

Statt einer Zeichenzuweisung kann man auch eine beliebige
Funktion/Prozedur aufrufen.
if key=#13 then TuWas; Wird das gesendete Zeichen nicht gebraucht,
muss zusätzlich wieder die Zuweisung auf #0 erfolgen.
Delphi-Quellcode:
if key=#13 then
  begin
    TuWas;
    key:= #0;
  end;
Ich hoffe, das hilft Dir weiter.

Werner
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz