Napisao sam sopstveni Kod za stopericu... posto mi modchetov nije bas najbolje proradio ..... evo pa recite sta mislite....
procedure TForm1.Timer1Timer(Sender: TObject);
var h1,h2,m1,m2,s1,s2:integer;
begin
if label7.caption = ('true') then
begin
s1:=0;s2:=0;m1:=0;m2:=0;h1:=0;h2:=0;label7.caption := ('false')
end;
h1 := strtoint (label1.caption);
h2 := strtoint (label2.caption);
m1 := strtoint (label3.caption);
m2 := strtoint (label4.caption);
s1 := strtoint (label5.caption);
s2 := strtoint (label6.caption);
s2 := s2+1;
if s2 > 9 then
begin
s2 := 0;
s1 := s1+1
end;
if s1 = 6 then
begin
s1 :=0;
m2 := m2+1;
if m2 > 9 then
begin
m2 := 0;
m1 := m1+1
end;
if m1 = 6 then
begin
m1 := 0;
h2 := h2+1;
if h2 > 9 then
begin
h2 := 0;
h1 := h1+1
end;
end;
end;
label1.caption := inttostr(h1);
label2.caption := inttostr(h2);
label3.Caption := inttostr(m1);
label4.Caption := inttostr(m2);
label5.Caption := inttostr(s1);
label6.caption := inttostr(s2);
end;
Objasnjenje : ovih sest labela su za sate*2,minute*2 i sekunde*2 a label7 je kao uslov...
Za End Task mi je sasvim lepo proradilo i super sam ga iskoristio.....
Za Taskbar mi nije bas prepoznao GetWindow......a u stoperici FormCreate
1. Jos par pitanja !
Kako mogu da kad mi se otvori jedna forma koja se aktivira sa client-a na serveru disable-iram Keyboard i Mouse .... a kad se forma iskljuci sa clienta da se Enable-ira .... ? ???
I kako se aktivnost korisnika smanjuje na samo jednu vec otvorenu formu koja je aktivirana ? znaci da ne moze da radi nista drugo dok se ta forma ne iskljuci.....
Hvala
[
Ovu poruku je menjao 85#D@libor dana 04-27-2001 u 11:19 AM GMT]
I'm taking over a TV Network...
Finish up honey and get to sleep...