timer?

Drop en timer

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval := 180000;
// 1000 ms = 1 sekund
// gør hvad du vil her
end;

stoney

Sæt en radiogroup på din form

Under items indtater du de tidsintervaller der skal kunne vælges mellem

På formens activatevent initalisere du din radiogroup

På Radiogrouppens onclickevent skifter du intervaltid

På Timerens ontime event udfører du din kode


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Timer1: TTimer;
    procedure FormActivate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  RadioGroup1.ItemIndex := 0;  //defaultværdi ved opstart 3 min
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0 : Timer1.Interval := 180000; //3 min
    1 : Timer1.Interval := 300000; //5min
    2 : Timer1.Interval := 600000; //10 min
  end; //case RadioGroup1.ItemIndex of
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ShowMessage(\'Nu er den indstillede tid gået\');
  //Den kode som skal udføres indsættes her
end;

end