Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как убить динамически созданный Frame сам из себя 
:(
    Опции темы
Sur0vy
Дата 2.9.2011, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 1.10.2009

Репутация: нет
Всего: нет
Задача стоит так: есть Frame,  на нем панель, на панели кнопка. при нажатии на эту кнопку фрейм нужно уничтожить вместе со всем содержимым.
пробовал вот так 

Вот немного кода

Код

//создаем
Frm:= TMyFrame.create(ToolPnl);
    Frm.Parent:= ToolPnl;
    Frm.Name:= 'Frm' + IntToStr(List.Count - 1);
    Frm.Top:= ToolPnl.Height;
    Frm.Align:= alBottom;
    Frm.Height:= DefaultHeight;
    TButton(Frm.btnDel).OnClick:= OnDel;
    Frm.btnDel.Name:= Frm.btnDel.Name + '_' + inttostr(List.Count - 1);
.
.
.
//удаляем
procedure TFrmMain.OnDel(Sender: TObject);
.
.
.
  begin
    j:= 2;
    Component:=TComponent(Sender);
    while (j > 0) and (component.GetParentComponent.GetParentComponent <> nil) do
    begin
      component:=component.GetParentComponent;
      dec(j);
    end;
    component.Destroying;
    TControl(component).Parent:=nil;
   end
.
.
.
end


и вроде удаляется нормально, но вот когда новый фрейм добавляешь, то возникает ошибка 
Цитата

A component name Frm0 already exist
, то есть нифига он не удаляется на самом деле?
подскажите как его удалить все-таки
PM MAIL   Вверх
bems
Дата 3.9.2011, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
Free ему сделай. И если будут проблемы при выходе из программы то создавай так 
Frm:= TMyFrame.create(nil);


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Sur0vy
Дата 5.9.2011, 08:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 1.10.2009

Репутация: нет
Всего: нет
free выдает Access violation
PM MAIL   Вверх
AndreyIQ
Дата 5.9.2011, 09:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8
Цитата(Sur0vy @ 2.9.2011,  15:46)
Цитата

A component name Frm0 already exist
, то есть нифига он не удаляется на самом деле?
подскажите как его удалить все-таки

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

procedure TForm3.OnDel(Sender: TObject);
begin
  TButton(Sender).Parent.Free;
end;

procedure TForm3.Button1Click(Sender: TObject);
var frm:TForm;
bt:TButton;
begin
  frm:=TForm.Create(form3);
  frm.Name:='fm1';
  bt:= TButton.Create(frm);
  bt.Parent:=frm;
  bt.OnClick:= OnDel;
  frm.Show;
end;

Без проблем создает форму с кнопкой и удаляет по нажатию на кнопку.
PM MAIL   Вверх
Sur0vy
Дата 5.9.2011, 11:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 1.10.2009

Репутация: нет
Всего: нет
Да, я действительно пытаюсь создать фрейм с тем-же именем. Но тогда мне непонятно, ведь объект уже уничтожен, почему нельзя его имя использовать?
PM MAIL   Вверх
AndreyIQ
Дата 5.9.2011, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8
Цитата(Sur0vy @ 5.9.2011,  11:04)
Да, я действительно пытаюсь создать фрейм с тем-же именем. Но тогда мне непонятно, ведь объект уже уничтожен, почему нельзя его имя использовать?

Значить он не уничтожен.
В приведеном Вами коде, нет удаления.
Код

//удаляем
procedure TFrmMain.OnDel(Sender: TObject);
.
.
.
  begin
    j:= 2;
    Component:=TComponent(Sender);
    while (j > 0) and (component.GetParentComponent.GetParentComponent <> nil) do
    begin
      component:=component.GetParentComponent;
      dec(j);
    end;
    component.Destroying;
    TControl(component).Parent:=nil;
   end
.
.
.
end

Вообще не очень понятно, что в этом участке кода происходит. Если я все правильно понял, должно быть
Код

TButton(Sender).Parent.Parent.Free;

Или что-то вроде этого.
PM MAIL   Вверх
Sur0vy
Дата 5.9.2011, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 1.10.2009

Репутация: нет
Всего: нет
в том то и дело, что просто free выдает Access violation, потому как мы пытаемся удалить объект из самого себя

Добавлено через 6 минут и 23 секунды
да, и еще вот этот код
Цитата

код Pascal/Delphi

procedure TForm3.OnDel(Sender: TObject);
begin
  TButton(Sender).Parent.Free;
end;
procedure TForm3.Button1Click(Sender: TObject);
var frm:TForm;
bt:TButton;
begin
  frm:=TForm.Create(form3);
  frm.Name:='fm1';
  bt:= TButton.Create(frm);
  bt.Parent:=frm;
  bt.OnClick:= OnDel;
  frm.Show;
end;

Без проблем создает форму с кнопкой и удаляет по нажатию на кнопку.


заканчивается ошибкой Abstract Error
PM MAIL   Вверх
AndreyIQ
Дата 5.9.2011, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8
Цитата(Sur0vy @ 5.9.2011,  11:42)
в том то и дело, что просто free выдает Access violation, потому как мы пытаемся удалить объект из самого себя

Добавлено @ 11:48
да, и еще вот этот код
Цитата

код Pascal/Delphi

procedure TForm3.OnDel(Sender: TObject);
begin
  TButton(Sender).Parent.Free;
end;
procedure TForm3.Button1Click(Sender: TObject);
var frm:TForm;
bt:TButton;
begin
  frm:=TForm.Create(form3);
  frm.Name:='fm1';
  bt:= TButton.Create(frm);
  bt.Parent:=frm;
  bt.OnClick:= OnDel;
  frm.Show;
end;

Без проблем создает форму с кнопкой и удаляет по нажатию на кнопку.


заканчивается ошибкой Abstract Error

Страно, у меня без проблем работает, а какая у Вас версия Delphi?
PM MAIL   Вверх
Sur0vy
Дата 5.9.2011, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 1.10.2009

Репутация: нет
Всего: нет
7-ка
PM MAIL   Вверх
kami
Дата 5.9.2011, 16:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72
100 раз уже обсуждалась эта тема. Из самого себя (и из своих детей) нельзя уничтожать себя же. Нужны небольшие извращения, и для этого нужно внести дополнения в код родителя фрейма.
Подробности - здесь
PM MAIL WWW   Вверх
AndreyIQ
Дата 5.9.2011, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8
Цитата(kami @ 5.9.2011,  16:46)
100 раз уже обсуждалась эта тема. Из самого себя (и из своих детей) нельзя уничтожать себя же. Нужны небольшие извращения, и для этого нужно внести дополнения в код родителя фрейма.
Подробности - здесь

А почему тогда у меня без проблем работает след. код:
Код

procedure TForm3.OnDel(Sender: TObject);
begin
  TButton(Sender).Parent.Free;
end;

procedure TForm3.Button1Click(Sender: TObject);
var frm:TForm;
bt:TButton;
begin
  frm:=TForm.Create(form3);
  frm.Name:='fm1';
  bt:= TButton.Create(frm);
  bt.Parent:=frm;
  bt.OnClick:= OnDel;
  frm.Show;
end;
PM MAIL   Вверх
kami
Дата 5.9.2011, 18:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72
Цитата(AndreyIQ @  5.9.2011,  16:52 Найти цитируемый пост)
А почему тогда у меня без проблем работает след. код:

А потому что не нужно путать фреймы с формами. Форма "заточена" под уничтожение "из себя".
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  fr: TFrame;
  bt: TButton;
begin
  fr := TFrame.Create(self);
  fr.Parent:=Self;
  fr.Align:=alClient;
  bt := TButton.Create(fr);
  bt.Parent := fr;
  bt.OnClick := OnDel;
end;

procedure TForm1.OnDel(Sender: TObject);
begin
  TButton(Sender).Parent.Free;
end;


Это раз. Второе - не нужно исходить из частных случаев. Программист обязан предусмотреть все (или хотя бы большинство) граблей, которые могут возникнуть на этапе расширения проекта.

Положите на свою динамически созданную форму в дополнение к кнопке еще TImage  и получите AbstractError.
PM MAIL WWW   Вверх
bems
Дата 5.9.2011, 18:28 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
Цитата(kami @  5.9.2011,  18:13 Найти цитируемый пост)
Форма "заточена" под уничтожение "из себя".

вообще-то там метод Release специально для этого, а заточки какой-то нет особой.

А на тему "почему работает", то вот тут я объяснял почему может работать, и почему не стоит на это расчитывать


--------------------
Обижено школьников: 8
PM MAIL   Вверх
AndreyIQ
Дата 6.9.2011, 07:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: нет
Всего: 8
Цитата(kami @ 5.9.2011,  18:13)
Положите на свою динамически созданную форму в дополнение к кнопке еще TImage  и получите AbstractError.

Код

procedure TForm3.Button1Click(Sender: TObject);
var frm:TForm;
bt:TButton;
im:TImage;
begin
  frm:=TForm.Create(form3);
  frm.Name:='fm1';
  bt:= TButton.Create(frm);
  bt.Parent:=frm;
  bt.OnClick:= OnDel;
  im:= TImage.Create(frm);
  im.Parent:= frm;
  im.Picture.LoadFromFile('c:\1111.bmp');
  frm.Show;
end;

procedure TForm3.OnDel(Sender: TObject);
begin
  TButton(Sender).Parent.Free;
end;

Без проблем работает.
PM MAIL   Вверх
Sur0vy
Дата 6.9.2011, 07:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 1.10.2009

Репутация: нет
Всего: нет
Спасибо kami. наконец все заработало без проблем.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0575 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.