[Delphi] Instrukcja warunkowa if + zamykanie formy


(system) #1
procedure TForm1.OKClick(Sender: TObject);

begin

  //inny kod

  if ok then close;

end;


procedure TForm1.FormClose(Sender:TObject;var Action:TCloseAction);

begin

  Action:=caFree;

end;