CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

esben_pape Nybegynder

12. marts 2003 - 18:14 Der er 7 kommentarer og
1 løsning

_KUN_ skrive tal i en edit

Et simpelt lille spørgsmål: Hvordan kan man ordne, så man KUN kan skrive tal i en edit? Der er selvfølgelig muligheden for at lave et try...except on-statement, men det vil se bedre ud, hvis man bare ikke kunne skrive noget andet end tal...

Synes godt om

hermandsen Juniormester

12. marts 2003 - 18:19 #1

procedure TPonyForm.HestEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if not (Key in [0..9]) then
Key := #0;
end;

Noget i den retning?

Synes godt om

hermandsen Juniormester

12. marts 2003 - 18:20 #2

Upser... [0..9] skal lige ændres til ['0'..'9'] ;)

Synes godt om

a_schack Nybegynder

12. marts 2003 - 18:25 #3

Du kan trappe OnKeyPress event'en og checke at Key ligger fra og med 30 ('0') til og med 39 ('9'):
if not (Ord(Key) >= 30 and Ord(Key) < 39) then
Key:='';
Hvis det er et generelt problem, vil jeg anbefale, at du subclasser TEdit...

Synes godt om

a_schack Nybegynder

12. marts 2003 - 18:26 #4

hermandsen >> du var vist hurtigere end mig!

Synes godt om

esben_pape Nybegynder

12. marts 2003 - 19:21 #5

hermandsen>> ...og hvis man også gerne må kunne trykke Backspace?

Synes godt om

stoney Nybegynder

12. marts 2003 - 19:33 #6

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

end;

Stoney

Synes godt om

esben_pape Nybegynder

12. marts 2003 - 19:40 #7

Takker mange gange...
Stoney, hvis du vil have en andel i de dejlig mange point, så smid et svar ;-)

Synes godt om

stoney Nybegynder

12. marts 2003 - 20:05 #8

Hermandsen havde jo næsten givet svaret,
så giv bare ham de point.

Stoney

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP Classic fil fra subfolder Af bsn i Andet programmering	3	07/05/202416:14	08/05/202401:00
Session Variable Af bsn i Andet programmering	3	01/05/202409:44	02/05/202409:29
Modifyed Field for all Records in Access Af ingeman i Andet programmering	2	29/04/202416:05	30/04/202407:19
Delphi - Parser JSON Fil Af juzas i Andet programmering	4	25/02/202407:13	28/02/202420:56
Bat fil Af sjass i Andet programmering	5	15/01/202417:45	15/01/202420:35

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS