Destroy формы

[SNUPY]

Столкнулся с тем, что после выполнения destroy указатель на форму не становиться равным nil, хотя по идеи должен был =)

Или я на ночь глядя туплю???

[0nni]

А он и не должен

[SNUPY]

лана поставим по другому вопрос... вообще у меня динамический массив экземпляров формы...короче вот:

Type
...
TMotherForm = class(TForm)
....
TForms=array of TMotherForm;// хотя в перспективе создать отдельный класс =))))
...
var
  FForms:TForms;
...
{Деструктор класса TMotherForm}
destructor TMotherForm.destroy;
var
  i:Integer;
begin
  for i:=Self.index to length(FForms)-2 do
  begin
    FForms[i]:=FForms[i+1];
  end;
  setlength(FForms,length(FForms)-1);
  inherited destroy;
end;
...
{вот так мы создаем форму}
procedure ShowForm(FormNumber:integer);
{FormNumber вляет на название формы =))).... короче не обращайте внимание на него}
begin
    SetLength(FForms,length(FForms)+1);
    FForms[length(FForms)-1]:=TMotherForm.Create(...);
    FForms[length(FForms)-1].Show;
end;

{обработчик события закрытия формы}

procedure TMotherForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Self.free;
end;

...

{обрабтчик события нажития кнопки после чего вылезает ошибка чтения памяти, при чем через раз =(((}

procedure TMotherForm.BackButtonClick(Sender: TObject);
begin
  if FNumber > 1 then
    ShowForm(FNumber-1);
  Self.Close;
end;

Короче говоря выползает ошибка... не знаю почему =\\\ И что то мне на более бодорствующую глову подсказывает, что проблема связана тем, что мы вытворяем в деструктуре с указателем на форму,... =(.... короче говоря где я туплю??? часом не из-за того, что я теряю указатель на форму которая пока что занята своей деструкцией.... =(????

[Stilet]

procedure TMotherForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Self.free;
end;

Вот это ты здря.
Вообще зачем тебе формы так уничтожать?

[SNUPY]

Stilet


нууу... типо не известно сколько пользователь заблогорассудит ипользовать и попутно выключать.... вот и решил я так построить логику приложения... а ваши предложения каковы???

[Stilet]

а ваши предложения каковы???

Оч просты - При создании формы пихать в TObjectList.
А удалять их только при закрытии главной формы, освобождая TObjectList.
Впрочем есть другой вариант:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree
end;

т.е. обработчик закрытия формы будет просить ее исчезнуть самостоятельно, и тебе не придется заботится о ее ручной освобождении

[SNUPY]

Stilet

 Action:=caFree

ЭТО АЙС!!!! Спасибо большое за информацию!!!!

Вопрос не в тему... но всетаки интересно... у меня иногдк вылетал вместо ошибки памяти AbstractError... я только с этой ошибкой сталкивался тогда, когда абстрактные методы забывал "заменить" в экземплярах класса, а у TForm вроде бы нет абстрактных методов... в чем возможна проблема??? Хотя после внесенных изменений проблема больше не вылетала =))) за что большое спасибо =)))

вот на всяк полное "тело" мое потомка TForm:

  TMotherForm = class(TForm)
    ToolsGroupBox: TGroupBox;
    SaveBtn: TButton;
    PrintBitBtn: TBitBtn;
    BackButton: TButton;
    AddDownRowBtn: TButton;
    DeleteBtn: TButton;
    CloseButton: TButton;
    NextBitBtn: TBitBtn;
    OpenBitBtn: TBitBtn;
    AddUpRowBtn: TButton;
    CopyBtn: TButton;
    PasteBtn: TButton;
    NoteGroupBox: TGroupBox;
    StringGrid: TStringGrid;
    RichEdit1: TRichEdit;
    procedure FormResize(Sender: TObject);
    procedure SetGridFields(SqlTable:TSQLiteTable);
//    procedure OpenBlank(RowNumber:integer);
    procedure OpenNote(DB:TSQLiteDatabase; Grid:TStringGrid; codition:string);
    procedure OpenBitBtnClick(Sender: TObject);
    procedure StringGridDblClick(Sender: TObject);
    procedure AddUpRowBtnClick(Sender: TObject);
    procedure OpenForm(DB:TSQLiteDatabase; Grid:TStringGrid; condition:string);
    procedure OpenForm1(DB:TSQLiteDatabase; Grid:TStringGrid; condition:string);
    procedure OpenForm2(DB:TSQLiteDatabase; Grid:TStringGrid; condition:string);
    procedure OpenForm3(DB:TSQLiteDatabase; Grid:TStringGrid; condition:string);
    procedure OpenForm4(DB:TSQLiteDatabase; Grid:TStringGrid; condition:string);
    procedure OpenForm5(DB:TSQLiteDatabase; Grid:TStringGrid; condition:string);
    procedure OpenForm6(DB:TSQLiteDatabase; Grid:TStringGrid; condition:string);
    procedure InsertRowForm1(DB:TSQLiteDatabase; reportPeriod:string;
      SortIndex:string);
    procedure InsertRowForm2(DB:TSQLiteDatabase; reportPeriod:string;
      SortIndex:string);
    procedure InsertRowForm3(DB:TSQLiteDatabase; reportPeriod:string;
      SortIndex:string);
    procedure InsertRowForm4(DB:TSQLiteDatabase; reportPeriod:string;
      SortIndex:string);
    procedure InsertRowForm5(DB:TSQLiteDatabase; reportPeriod:string;
      SortIndex:string);
    procedure InsertRowForm6(DB:TSQLiteDatabase; reportPeriod:string;
      SortIndex:string);
    procedure AddDownRowBtnClick(Sender: TObject);
    procedure DeleteBtnClick(Sender: TObject);
    procedure NextBitBtnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CloseButtonClick(Sender: TObject);
    procedure BackButtonClick(Sender: TObject);
    procedure PrintBitBtnClick(Sender: TObject);
  private
    DB:TSQLiteDatabase;
    Codition:String;
    FormData:PCathedrData;
    Month, Age:integer;
  public
    index:Integer;
    FNumber:Integer;
    Constructor Create(FormNumber:Integer; InputFormData:PCathedrData; InputMonth,
      InputAge:integer; inputDB:TSQLiteDatabase; Inputindex:integer); overload;
    destructor Destroy; overload;
    procedure ShowForm(FormNumber:integer);
  end;

[SNUPY]

Теперь я значит разообрался почему ошибка не вылетает =))) у формы не срабатывает деструктор =\\\

интересно... сам код на деструкторе не срабатывает, а на OnDestroy срабатывает....
ругаеться каждый раз на это:

{здесь FormsList это TObjectList список хранящий указатели на экземпляры класса TMotherForm}
procedure TMotherForm.FormDestroy(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to FormsList.Count-1 do
  begin
    if TMotherForm(FormsList.Items[i])=Self then
    begin
      FormsList.Delete(i);
      break;
    end;
  end;
end;

теперь немного подумав пришел к мнению, что мы удаляем еще не заверший свои дела объект....а нельзя ли просто "потерять" указатель на Форму и пусть она себе там "убиваеться" на здоровье... =)))... или как хотя бы узнать по указателю на форму "мертва" она или нет????

[PVD]

Добрый день та же проблема только с элементом Tpanel

[Stilet]

if TMotherForm(FormsList.Items[i])=Self then

Будь проще

var FormsList:TObjectList; i:integer;
begin
 i:=FormsList.IndexOf(self);
 if i<>-1 then FormsList.Delete(i);
end;

Между прочим, а сам FormsList случайно не поле класса формы, которую ты разрушаешь?