[delphi]timer

jak zrobic zeby po tym czyms
begin
Label4.Caption := 'Do zakończenia programu pozostało: ' + IntToStr(I);
Dec(i);
If I = 0 then ShowMessage('Koniec Działania Programu :)');
end;

program sie zamknoł
--Początkujący w Delphi zadaje duzo pytan

Label4.Caption := 'Do zakończenia programu pozostało: ' + IntToStr(I);
Dec(i);
If I = 0 then
begin
ShowMessage('Koniec Działania Programu ');
close; //lub application.termiante; lub form1.close;
end;

ale jezu! zamknoł!!!!!!!!!!!!!!!

no nie...........

Zalecam jakąś długą lekturę

ZIOMBER napisał:
Label4.Caption := 'Do zakończenia programu pozostało: ' + IntToStr(I);
&gt Dec(i);
&gt If I = 0 then
&gtbegin
&gtShowMessage('Koniec Działania Programu ');
&gtclose; //lub application.termiante; lub form1.close;
&gtend;

mozna jeszcze halt(0); hehe--||===

werw0e napisał:
ZIOMBER napisał:
&gt&gtclose; //lub application.termiante; lub form1.close;
&gt&gtend;
&gt
&gtmozna jeszcze halt(0); hehe
&gt
Skoro już się tak prześcigamy w sposobach zamknięcia programu to można jeszcze:
PostQuitMessage(0);
lub
PostMessage(Handle, WM_QUIT,0,0);

:) Mam dalej wymieniać sposoby zamknięcia :)--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

&gt:) Mam dalej wymieniać sposoby zamknięcia :)

dawaj!! wszystkie!!--||===

werw0e napisał:
dawaj!! wszystkie!!

PostMessage(Handle, WM_QUIT, 0, 0);
PostMessage(Handle, WM_CLOSE, 0, 0);
SendMessage(Handle, WM_CLOSE, 0, 0);
PostQuitMessage(0);
Form1.Close;
Application.Terminate;
Halt(0);
TerminateProcess(GetCurrentProcess,0);
ExitProcess(0);

hmm... na razie tyle, chociaż pewnie możnaby bawić się jeszcze z wątkami :)--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.