Czy moze mi ktos powiedziec jak zrobic cos takiego, aby forma sama sie zamknela np po 5 sekundach ??? ;)
gosciu po pierwsze to przydaloby sie napisac o jaki jezyk chodzi ...
pewnie jestes poczatkujacy jesli o takie rzeczy sie pytasz i pewnie w delphi stukasz sobie ...
wiec stworz timer ustaw interval na 5000, i ustaw enabled na false
i wpisz w zdarzeniu OnTimer (jeslic dobrze pamietam)
close();
timer1.enabled := false;
w zdarzeniu onShow formy dajesz
timer1.enabled := true;
mysle ze to dobry sposob, nie trzeba sie bawic w watki ani nic
mam nadzieje ze dobrze napisalem ...
w koncu nie siedze juz w delphi tylko w c++ na linuxie ;)
--powered by h3xi0 developer
Należy wykorzystać TTimer w zdarzeniu OnCreate i ustawić po pięciu sekundach polecenie CLOSE;
Jesli forma ma sie zamknac w 5 sekund po uruchmieniu to napisz w OnCreate formy:
sleep(5000); *czas w milisekundach
close;
Jesli nie o to chodzi, to skorzystaj z timera. W moncie gdy ma zaczac sie odliczanie piszesz Timer1.Enabled := True i w onTimer:
var
czas : Integer;
begin
czas := czas + 1;
if czas = 5 then close;
end;
- jesli timer ma interval 1000
Pozdr.
Y@siu
Po pierwsze to znowu mnie wyprzedzono. :(
Po drugie to naklamalem troche z tym sleep'em...
Dzieki ! :-)
>Po drugie to naklamalem troche z tym sleep'em...
Ale za to można spróbować z:
sleepex(5000, false);---------------------------
Delphi 6
Pozdrówka
Tu jest sposób na zamkniecie formy po upływie czasu (jak tez o danej godzinie):
var
Present : TDateTime;
Hour, Min, Sek, MSec : Word;
Wrzucasz na formę timera,ustawiasz interval na np.10 i wrzucasz do niego taką prockę...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Present := Now;
DecodeTime(Present, Hour, Min, Sek, MSec);
if (Hour =strtoint(Godzina.Text)) and (Min = strtoint(Minuta.Text)) and (Sek =strtoint(Sekunda.Text)) then
Tu umieszczasz coś..np
Application.Terminate {zamyka aplikację}
Godzina.Text jest to Edit z wpisaną godziną
Minuta.Text jw-wpisane minuty
Sekunda.Text jw- wpisane sekundy
BTW pisałem to z pamięci wiec jak coś nie zadziała to napisz do mnie to wyślę przykład..
[email protected]
POZDRAWIAM
DELPHI RULEZ
NIECH MOCz BĘDZIE Z WAMI
:-))