Работа с фрэймами

[SeZuka]

Подскажите, мне нужно чтобы фрэйм уничтожился при нажатии кнопки на нем, то есть из самого себя, но в ответ все время получаю ошибку SIGSEGV.
Сам фрейм:

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Buttons;

type

  { TFrame1 }

  TFrame1 = class(TFrame)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

{$R *.lfm}

{ TFrame1 }

procedure TFrame1.BitBtn1Click(Sender: TObject);
begin
  Free;
end;

end.


Вызов его:

Код: Выделить всё

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with TFrame1.Create(Self) do begin
    Parent := Self;
    Show;
    //Free;
  end;
end;


Извне все нормально уничтожается:

Код: Выделить всё

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with TFrame1.Create(Self) do begin
    Parent := Self;
    Show;
    Free;
  end;
end;


Что я делаю не так или как это обойти?

[vada]

Это похоже на то что вы хотели застрелиться, но неудачно. Не насмерть стрельнулись, а просто нормально так себя поранили и сознание потеряли. Поэтому добить себя ну никак не можете.
А вот если прохожего попросите вас застрелить, то он сможет вас добить, если сразу не получилось.

[SeZuka]

Смешно, но действительно так, уже и об стену бился и яд пил, а никак не получается себя прибить насмерть
А если по существу, почему не получается прибить самого себя?

[qivi]

viewtopic.php?f=5&t=6204
Четвёртый пост сверзу

[amateur]

мда... а вики уже не рулит?

http://wiki.freepascal.org/Frames

Хоть и на инглиш но понять можно (особено в конце интересное написано).

[SeZuka]

qivi Спасибо!
Натыкаюсь на очередные грабли, на дельфях вроде как все проще было, хотя там я пользовался MDI-формами, а не фрэймами.

amateur И что там интересного написано? Конструктор и деструктор, а про то как убить самого себя ни слова.

[Лекс Айрин]

про то как убить самого себя ни слова.

А стандартный деструктор Destroy уже отменили? Или религия не позволяет?

destructor TFrame1.Destroy;
begin
// уничтожение созданных формой объектов...
inherited Destroy;
end;

[amateur]

там и есть та самая "вкусняшка" для убиения фрейма...

фрейм убить можно (только он про это не знает ему надо указать как).

пользовался MDI-формами

посмотрите в сторону TDI или компонент в RxFPC.

[SeZuka]

А стандартный деструктор Destroy уже отменили? Или религия не позволяет?

destructor TFrame1.Destroy;
begin
// уничтожение созданных формой объектов...
inherited Destroy;
end;

Если вместо Free вызвать Destroy, то та же самая ошибка, хотя Free тот же самый Destroy и вызывает.
И я никакие объекты вручную не создавал, чтоб их уничтожать вручную. Или по вашей логике все что положили на форму во время проектирования, при закрытии формы надо вручную убивать?

P.S. Кстати дело здесь не во фрейме, а в вызове деструктора объекта из события самого объекта. Создайте новый проект, положите на форму кнопку и в обработчике нажатия вызовите деструктор формы, получите туже ошибку:

Код: Выделить всё

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Free; // Либо Destroy;
end;


[Лекс Айрин]

SeZuka, попробуйте воспользоваться методом Close. Но, кстати, не вижу чтобы деструктор был описан. Похоже, что вы вызываете того чего просто нет.

[iskander]

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

Код: Выделить всё

procedure TFrame1.BitBtn1Click(Sender: TObject);
begin
  Parent.RemoveControl(Self);
end;

[SeZuka]

SeZuka, попробуйте воспользоваться методом Close. Но, кстати, не вижу чтобы деструктор был описан. Похоже, что вы вызываете того чего просто нет.

Деструктор есть у любого объекта порожденного от TObject, и если я не переписываю деструктор своего объекта, то вызывается деструктор предка. А вот если я насоздаю в объекте кучу всего, о чем не знает предок, тогда действительно надо переопределять деструктор, чтоб почистить эту кучу перед собственным удалением. А вот у фрейма нет метода Close

Код: Выделить всё

procedure TFrame1.BitBtn1Click(Sender: TObject);
begin
  Parent.RemoveControl(Self);
end;

Так он удалится с формы (ну или кто там его Parent'ом является), а в памяти так и останется висеть.

[iskander]

а в памяти так и останется висеть.

Есть такое дело.
Ну тогда как по ссылке qivi.
Можно ещё сообщение послать, но это геморнее:

Код: Выделить всё

uses
  Classes, SysUtils, FileUtil, Forms, Controls, StdCtrls,
  LclType, LMessages, LclIntf;


const
    WM_FREE = WM_USER+ 100;

type

  { TFrame1 }

  TFrame1 = class(TFrame)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
    procedure WMFree(var aMsg: TLMessage); message WM_FREE;
  public
    { public declarations }
  end;

implementation

{$R *.lfm}

{ TFrame1 }

procedure TFrame1.Button1Click(Sender: TObject);
begin
  PostMessage(Handle,WM_FREE,wParam(Self),0);
end;

procedure TFrame1.WMFree(var aMsg: TLMessage);
begin
  if aMsg.wParam = wParam(Self) then
    Free;
end;