Jeg har spurt andre steder, det håber jeg er OK ? : )
En har næsten fået den lavet som sådan :
var
Form1: TForm1;
i: integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
I:=0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i := i+1000;
Label1.Caption:=IntToStr(i);
if i = 25000 then Label1.Caption := 'tid1'
else if i = 50000 then Label1.Caption := 'tid2';
if i >= 80000 then
begin
Label1.Caption:= 'tid3';
i:= 0;
end;
end;
end.
MEN NEJ !
den bliver stående på tid3 ... så nej ikke endnu virkder det.
Mærkeligt at det kan volde så mange problemer ? : )
VH
tarsankode
Hehe det skulle helst heller ikke volde så mange problemer. Ret simpel opgave.
Men her er ihvertfald den præcise kode som virker for mig:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i: integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i := i+1000;
if i = 25000 then Label1.Caption := 'tid1'
else if i = 50000 then Label1.Caption := 'tid2'
else if i = 80000 then
begin
Label1.Caption:= 'tid3';
i:= 0;
end;
end;
end.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------