VPF::Уничтожить кнопку - Форум программистов

bems

Дата 17.12.2009, 02:01 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(vgGrey @ 16.12.2009, 23:34

)

Button1 = nil

с чего бы?

--------------------

Обижено школьников: 8

vgGrey

Дата 17.12.2009, 11:14 (ссылка)

(голосов:2)

Загрузка ...

Новичок

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

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

Код


procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FreeAndNil(Sender);
  ShowMessage('Кнопка "Button1" не существует! ');
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  Button1.Caption:= 'aaaaaa';
end;

Жмите F7 и наведите курсор на Button1 и увидите... smile

Добавлено через 5 минут и 58 секунд
Proxin, а зачем удалять то?
Ведь можно применить Visible, Hide... smile

Это сообщение отредактировал(а) vgGrey - 17.12.2009, 11:14

bems

Дата 17.12.2009, 19:43 (ссылка)

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

Загрузка ...

Эксперт

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

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

Я не думаю что у поля формы Button1 есть шанс тать равным nil в результате работы твоего кода. Но я проверю, когда окажусь за компьютером с установленой средой. А сейчас предположим что это верно. Также предположим что все вложеные вызовы методов (уже уничтоженного) объекта каким-то образом изменили свой Self в стеке на nil. Тогда при обращении к полю объекта будет обращение к адресу 0 + смещение от начала объекта до поля. То есть запись или чтение в адрес 00000004, 00000008 и тому подобные маленькие числа. Это AV

--------------------

Обижено школьников: 8

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