Timer

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.

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;