Posted by Letizia on May 10, 2002 at 17:33:38:
Can anyone tell me what TForm Close does in order to destroy the object it owns? Does it tests in some way if the objects still exist?
type TFormDB = class(Tform) .... CreateTabelBt: TButton; CloseBt: TButton; end; var FormDB: TFormDB; NewTbl: TTable; NewDataSrc: TDataSource;
procedure TFormDb.CreateBtClick(Sender: TObject); begin NewTbl := TTable.Create(Self); with NewTbl do begin ..... end; end; procedure TFormDB.CloseBtClick(Sender: TObject); begin NewTbl.Free; Close; end;
Thanks in advance