[ 85#D@libor @ 26.04.2001. 00:06 ] @
Za sad nekoliko problema :

1. Imam program koji treba da radi u pozadini i nesme da se iskljucuje...

Kako da ga sakrijem a da se nevidi u taskbaru,da se nevidi na Alt+TAB,da ne moze da se iskljuciti na End Task ....

2. Bezveze sam zaglavio kod Label-a

Napravio sam sopstveni kod za Brojac (stopericu) i sad kad treba da mi ispise vrednost na label-u nemogu da mu stavim da ...

Label1.Caption := ...... {ovde treba da bude jednako promenljivoj h1(integer)}
kako se to postavlja...

Hvala....Odgovorite sta znate....Bilo sta.... :D
[ @ 26.04.2001. 11:33 ] @
Prvo evo ti za stopericu:

Code:

var 
  TheTime:Integer; 

implementation 

Function GetCounter(Second:Integer):String; 
Var 
 Minute,NewSecond,Hour : Currency; 
Begin 
  Hour       := Int(Second / 3600); 
  Minute     := Int((Second-(Hour*3600))/60); 
  NewSecond  := Second-int(Hour*3600+Minut*60); 
  GetCounter := CurrToStr(Hour)+':'+CurrToStr(Minut)+':'+CurrToStr(NewSecond); 
End; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
 TheTime:=GetTickCount; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
 Label1.Caption:=GetCounter(GetTickCount Div 1000 -TheTime  Div 1000); 
end; 


Za alt+tab to ne znam ali evo ti za taskbar:

Code:

procedure TForm1.FormActivate(Sender: TObject);
var Owner : HWnd;
begin
  Owner:=GetWindow(Handle,GW_OWNER);
  ShowWindow(Owner,SW_HIDE);
end;  


i za end task:

Code:

var
  Form1: TForm1;
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
end;


:)
[ Gojko Vujovic @ 26.04.2001. 13:37 ] @
Label.Caption := StrToInt(neki_ingeger_value);
[ 85#D@libor @ 26.04.2001. 15:18 ] @
hvala....evo vec proveravam.....

za skrivanje mi je invan pokazao ....

on timer1.timer
begin
form1.hide;
end;

[ 85#D@libor @ 27.04.2001. 00:04 ] @
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]
[ Genie @ 04.05.2001. 16:18 ] @
Jedno pitanjce:
Za odredenu klasu sam devinisao nekoliko proceduralnih promenljivih. Kasnije u programu proverim da li je tim promenljivim dodeljena neka procedura pa ako jeste ja je pozovem. Zasto se posle tog poziva program ne vrati tamo odakle je pozvan i da li i kako to mogu da promenim?
Hvala

Igor GameMaker
[ 85#D@libor @ 10.05.2001. 11:23 ] @
probaj odmah posle poziva da stavis manuelno vracanje nazad.... ???
[ Plamenko @ 08.07.2001. 15:35 ] @
85#D@libor Pitao si :
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.....

Probaj da pri otvaranju te forme koja mora da bude jedina aktivna za dogadjaj OnActivate ( ili OnCrate ) postavis svojstvo Enabled ostalih formi na False. Dakle otprilike:

Form1.Enabled:=False;
...

i tako za sve forme koje su otvorene. Zatim za dogadjaj OnClose vratis svojstva na True.
Postavlja se problem sta se desava ako imas vise formi aktivnih a nebi trebale da budu kada se otvori ta stroga forma.Kako da znas koje ce forme korisnik da otvori pre otvaranja te 'opasne' forme ali probaj da izbangavis sa ovim sto sam ti rekao pali na jednostavnijim projektima. Ako neko ima bolje resenje i ja sam zainteresovan.

[Ovu poruku je menjao Plamenko dana 07-08-2001 u 03:37 PM GMT]