Solved

Edit

Posted on 2001-08-28
4
161 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 20 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

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

791 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