---
title: "Timer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/27876-timer"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "gundeman"
published: "2001-01-29T18:13:00.000Z"
updated: "2001-01-30T08:44:00.000Z"
replies: 1
views: 400
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/27876-timer"
---

# Timer

## #1 — gundeman, 2001-01-29T18:13Z

Hur skall jag göra om jag skall göra ett program som t ex var 10 sek skall visa ett objekt som från början är osynligt ex shape1,shape2 osv.

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

## #2 — jt, 2001-01-30T08:44Z

Följande kod i OnTimer visar en shape ungefär 0,5 sek.  Om du vill att detta ska ske var var 10 sek så får du sätta intervallet i timern till 10000.

procedure TForm.ShapeTimerTimer(Sender: TObject);
var
  StartTid: DWord;
begin
Shape.visible := true;
StartTid := GetTickCount();
while GetTickCount \< StartTid + 500 do
  Application.ProcessMessages;
Shape.visible := false;
end;

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

---

Tråden på webben: https://www.webforum.nu/amne/programmering/27876-timer