---
title: "Textruta"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/73626-textruta"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "msossna"
published: "2003-04-09T12:34:06.000Z"
updated: "2003-04-10T06:57:14.000Z"
replies: 1
views: 243
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/73626-textruta"
---

# Textruta

## #1 — msossna, 2003-04-09T12:34Z

Hur ställer man in en textruta så att den bara tar siffror?

Permalänk: https://www.webforum.nu/p/73626

## #2 — Tigermannen, 2003-04-10T06:57Z

Skriv följande i editboxens onKeyPress-event:

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

mvh Tony

Permalänk: https://www.webforum.nu/p/1007557

---

Tråden på webben: https://www.webforum.nu/amne/programmering/73626-textruta