Chyba juz z powodu poźnej godziny nie potrafie tego napisać, mianowicie polecenia warunkowego które jezeli t=koniec to application.terminate a jezeli t nie ='koniec' to
Action:=caNone;
Mainfrm.Hide;
Za pomoc z góry dziekuje.
Chyba juz z powodu poźnej godziny nie potrafie tego napisać, mianowicie polecenia warunkowego które jezeli t=koniec to application.terminate a jezeli t nie ='koniec' to
Action:=caNone;
Mainfrm.Hide;
Za pomoc z góry dziekuje.
Chyba chodzi ci o takie cos:
procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if t = 'koniec' then Action := caFree
else
begin
Action := caNone;
Form.Hide;
end;
end;
ale to co napisalem to juz sam w pytaniu praktycznie napisales...
Dziękuje, dziala jak nalezy ...