Script only to Input Numbers in Delphi

0 comments



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(Key in['0'..'9',#8]) then Key:=#0
end;

Description:

This script is placed on the component "Edit1" on "Events: onkeypress"
So the data can be input only NUMBERS only, while the letter could not
Share this article :

Post a Comment

Ads

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Share It Out - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger