Hvordan finne ut hva klokka er?

[e321]

Jeg lurer på hvordan jeg kan finne klokka...?

[gnab]

Sånn kan du f. eks. gjøre:

var
 Time, Minutt, Sekund, Millisekund: Word;
begin
 DecodeTime(Now, Time, Minutt, Sekund, Millisekund);
 ...

Variablene Time, Minutt, Sekund og Millisekund inneholder nå de respektive delene av gjeldende tidspunkt.

[e321]

takk

En ting til.. Gidder ikke starte ny tråd,

Hvordan kan jeg begrense key_press til f.eks bare Venstre piltast?

 

EDIT: Fikk det til.. Bruke bare VK_ før LEFT.

Endret 25. februar 2005 av e321

[Claw09]

Jeg lurer på hvordan jeg kan finne klokka...?

3728602[/snapback]

 

 

Legg til en timer i formen. Legg til en label etc.

 

Sett Timer1 Enabled til True.

 

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Caption:= TimeToStr(Now);

end;

 

Label1.caption vil nå vise klokken!