?
Solved

Edit

Posted on 2001-08-28
4
Medium Priority
?
169 Views
Last Modified: 2010-04-06
is there a property or method for edit box that let users write only numeric characters (in editbox).
(i don't want to use MaskEdit)
0
Comment
Question by:ntony
  • 2
4 Comments
 
LVL 9

Accepted Solution

by:
ITugay earned 80 total points
ID: 6431376
Hi ntony,

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

Author Comment

by:ntony
ID: 6431389
task it worked
0
 
LVL 9

Expert Comment

by:ITugay
ID: 6431391
fine...
0
 

Expert Comment

by:grini
ID: 6431676
Nu stiu omule si lasa-ma in pace
0

Featured Post

Vote for the Most Valuable Expert

It’s time to recognize experts that go above and beyond with helpful solutions and engagement on site. Choose from the top experts in the Hall of Fame or on the right rail of your favorite topic page. Look for the blue “Nominate” button on their profile to vote.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
This Micro Tutorial will teach you how to add a cinematic look to any film or video out there. There are very few simple steps that you will follow to do so. This will be demonstrated using Adobe Premiere Pro CS6.
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…
Suggested Courses
Course of the Month16 days, 11 hours left to enroll

862 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question