Polecenie warunkowe

0

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.

0

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...

0

Dziękuje, dziala jak nalezy ...

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0