Re: Tasen sperren mit key /Wie gebe ich entf/del frei?
Da ich das selbe Problem habe wie Hallo_Thomas,
poste ich meine Lösung anbei wie ich Ganzzahlen inkl. Backspace taste freigeschaltet habe:
Delphi-Quellcode:
procedure TFrame_Tarifdaten.E_PraemienZahlDauerKeyPress(Sender: TObject;
var Key: Char); begin inherited; if Key = #8 then Key := #8 else //#8 ist der ASCII Wert für VK_BACK if not (Key in ['0'..'9']) then Key := #0; end; |
Re: Tasen sperren mit key /Wie gebe ich entf/del frei?
das geht auch schöner:
Delphi-Quellcode:
//allgemeine Sperrung von allen Zeichen ausser
//backspace, {(-) , (,)} und Zahlen if not (key in[#8,{#44,#45,}#48..#57]) then key:=#0; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:44 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz