VPF::Самоуничтожение визуального компонента

PosiTive

Дата 29.3.2009, 13:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Ситуация:

динамически создаются кнопки

Код


  job_button_delete:= TButton.Create(Application);
  with job_button_delete do
  begin
    Parent:= job; // job - это фрейм
    Left:= 552;
    Top:= 39*job_count+8;
    Width:= 75;
    Height:= 25;
    Tag:= job_count;
    Caption:= 'Удалить';
    onclick:= del_job;
  end;

и обработчик onclick

Код


procedure TForm1.del_job(Sender: TObject);
begin
(Sender as TButton).Destroy;
end;

при нажатии на кнопку она удаляется, но вместе с этим выдается ошибка обращения к памяти. Как я понимаю нельзя удалять объект из собственного же метода. Может быть есть какой-нибудь ещё способ?

Заранее спасибо.

Это сообщение отредактировал(а) bems - 28.12.2009, 23:51

Akella

Дата 29.3.2009, 15:00 (ссылка)

(голосов:1)

Загрузка ...

Творец

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

Репутация: 8
Всего: 329

FreeAndNil?

PosiTive

Дата 29.3.2009, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Цитата(Akella @ 29.3.2009, 15:00)

FreeAndNil?

всмысле (Sender as TButton).Free?

если да, то пробовал, тоже самое :(

Akella

Дата 29.3.2009, 15:06 (ссылка)

(голосов:1)

Загрузка ...

Творец

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

Репутация: 8
Всего: 329

PosiTive,

Цитата(PosiTive @ 29.3.2009, 15:03

)

всмысле (Sender as TButton).Free?

нет

Добавлено через 56 секунд
Что в справке написано по FreeAndNil?

Добавлено через 4 минуты и 40 секунд
Ладно, если не можешь додумать, то вот:

Код


FreeAndNil(job_button_delete);

PosiTive

Дата 29.3.2009, 15:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Цитата(Akella @ 29.3.2009, 15:06)

PosiTive,

Цитата(PosiTive @ 29.3.2009, 15:03

)

всмысле (Sender as TButton).Free?

нет

Добавлено @ 15:07
Что в справке написано по FreeAndNil?

Добавлено @ 15:10
Ладно, если не можешь додумать, то вот:

Код


FreeAndNil(job_button_delete);

таже самая ошибка памяти.

на всякий случай кусок кода:

Код


procedure TForm1.del_job(Sender: TObject);
begin
freeandnil(Sender);
end;

Akella

Дата 29.3.2009, 15:18 (ссылка)

(голосов:1)

Загрузка ...

Творец

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

Репутация: 8
Всего: 329

Цитата(PosiTive @ 29.3.2009, 15:14

)

на всякий случай кусок кода:

ты видишь мой кусок кода или нет?? ГДЕ ТАМ SENDER?

kami

Дата 29.3.2009, 15:19 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Цитата(PosiTive @ 29.3.2009, 13:44

)

Как я понимаю нельзя удалять объект из собственного же метода.

Правильно, нельзя.
После вызова события OnClick в процедуре TWinControl.DoKeyPress еще идет обращение к полям экземпляра класса, хотя самого экземпляра уже не существует. Отсюда AV.

Нужно реализовать "замедленное" удаление, например - через механизм сообщений Windows.

Akella

Дата 29.3.2009, 15:19 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

Репутация: 8
Всего: 329

Код


 job_button_delete:= TButton.Create(сюда запихай форму, к которой принадлежит кнопка);

Цитата(PosiTive @ 29.3.2009, 13:44

)

job_button_delete:= TButton.Create(Application);
  with job_button_delete do
  begin
    Parent:= job; // job - это фрейм
    Left:= 552;
    Top:= 39*job_count+8;
    Width:= 75;
    Height:= 25;
    Tag:= job_count;
    Caption:= 'Удалить';
    onclick:= del_job;
  end;

а где owner?

kami

Дата 29.3.2009, 15:26 (ссылка)

(голосов:3)

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Поясняю.
Мы - в обработчике события OnClick той кнопки, которую нужно уничтожить.
Само собой, что уничтожить ее напрямую нет возможности (а соблазн так велик smile

).
Тогда делаем следующий финт ушами:

Код


procedure TForm1.del_job(Sender: TObject);
begin
  PostMessage(Handle, WM_USER, integer(Sender), 0); // Именно Postmessage
end;

Объявляем приемщик сообщения:

TForm1=class(.....)
private
  procedure MyButtonDelete(var Message:TMessage); message WM_USER;
....
end;

procedure TForm1.MyButtonDelete(var Message:TMessage);
begin
  TObject(Message.Wparam).Free;
end;

Цитата(Akella @ 29.3.2009, 15:19

)

а где owner?

Какой Owner, какой Sender?
У человека создается КУЧА кнопок динамически. Переменная job_button_delete теряет смысл сразу после выхода из процедуры создания, да и можно вполне обойтись и без нее.

Это сообщение отредактировал(а) kami - 29.3.2009, 15:32

PosiTive

Дата 29.3.2009, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Цитата(kami @ 29.3.2009, 15:26)

).
Тогда делаем следующий финт ушами:

Код


procedure TForm1.del_job(Sender: TObject);
begin
  PostMessage(Handle, WM_USER, integer(Sender), 0); // Именно Postmessage
end;

Объявляем приемщик сообщения:

TForm1=class(.....)
private
  procedure MyButtonDelete(var Message:TMessage); message WM_USER;
....
end;

procedure TForm1.MyButtonDelete(var Message:TMessage);
begin
  TObject(Message.Wparam).Free;
end;

Цитата(Akella @ 29.3.2009, 15:19

)

а где owner?

Большое спасибо за совет. У вас кошелек на Яндекс.Деньгах есть?

Akella

Дата 29.3.2009, 16:45 (ссылка)

(голосов:1)

Загрузка ...

Творец

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

Репутация: 8
Всего: 329

Цитата(kami @ 29.3.2009, 15:26

)

Какой Owner, какой Sender?
У человека создается КУЧА кнопок динамически.

ну owner ведь должен быть у кнопки

Akella

Дата 29.3.2009, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

Репутация: 8
Всего: 329

Цитата(kami @ 29.3.2009, 15:26

)

Мы - в обработчике события OnClick той кнопки, которую нужно уничтожить.

я стормозил

THandle

Дата 29.3.2009, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Цитата(Akella @ 29.3.2009, 16:45

)

ну owner ведь должен быть у кнопки

Ну дык а это кто:

Цитата(Akella @ 29.3.2009, 15:19

)

job_button_delete:= TButton.Create(Application);

Хотя можно указать и Nil, если сам убивать собираешься. Вообще kami все правильно говорит. Этот метод кстати описан в книге Антона Григорьева.

БелАмор

Дата 23.8.2010, 02:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: 7
Всего: 17

Цитата(PosiTive @ 29.3.2009, 13:44

)

Как я понимаю нельзя удалять объект из собственного же метода

Нельзя уничтожать объект не "из собственного метода", а "из собственного обработчика". Это две большие разницы.
"Собственный метод" - это метод, объявленный в этом классе, а "собственный обработчик" - это любой (подходящий) метод любого класса (объекта которого может даже не существовать), ссылка на который хранится в свойстве OnЧтоТоТам своего объекта. Причём в большинстве случаев обработчик является не своим методом, например:
TForm1.Button1Click - это обработсик OnClick кнопки Button1, но является методом формы Form1.

Ещё пример "большой разницы":
Form2.Free;
Здесь Free - "свой метод", и в нём вызывается деструктор, но он не "свой обработчик"...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »