Вниз
Скачать: CL | DM;

Удаление объекта из массива по OnClick   Найти похожие ветки 

← →
Reset   (2004-04-10 01:06) [0]

Я создаю массив объектов и по щелчку мышкой на любом из них он должен удалятся. А в хелпнике написано, что TObject.Free по OnClick работать не будет. Подскажите как это можно обойти?


← →
jack128 ©   (2004-04-10 01:14) [1]

Я так понимаю массив контролов?
Может работать, а может и нет.. Для гарантии пость (PostMessage) какому нить окну сообщение и в обработчике этого сообщения удаляй нужный контрол

Для примера см TCustomForm.Release;


← →
Reset ©   (2004-04-10 01:21) [2]

Спасибо. А то курсач горит, совсем спать перестал :)


← →
Геннадий ©   (2004-04-10 09:50) [3]

Тебе нужен динамический массив (заполняемый в момент создания формы), содержаций два поля на элемент: ссылку на контрол (TObject или TPersistent или ...) и признак удаления CanDel: Boolean

В событиии он клик контрола ищешь в массиве контрол и выставляешь CanDel = True

Тайме каждую секунду сканирует массив и удаляет нужные элементы (не забудь проверку if assigned())


← →
SergP ©   (2004-04-10 10:59) [4]

>Тайме каждую секунду сканирует массив и удаляет нужные элементы

Извращение.... :-((((


← →
Геннадий ©   (2004-04-10 12:50) [5]


SergP ©   (10.04.04 10:59) [4]
>Тайме каждую секунду сканирует массив и удаляет нужные элементы

Извращение.... :-((((



Хорошо. Пусть тогда в событии OnClick помимо CanDel:= True, будет ещё и запуск таймера.


← →
jack128 ©   (2004-04-10 12:57) [6]


> Геннадий ©   (10.04.04 12:50) [5]
Ты не понял. Извращение использовать таймер, сли можно без него.  Вообще странно, что Release введен только для Формы, лудше б его ввели сразу для TWinControl"a.  

По этому поводу вспоминаются heaper"ы (если правильно написал) из D8



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c
1-1081448039
Moroz
2004-04-08 22:13
2004.04.25
Строки


3-1080644592
Крутыш
2004-03-30 15:03
2004.04.25
Почему метод Locate срабатывает один раз.


1-1081160532
infom
2004-04-05 14:22
2004.04.25
Загрузка ресурса, что не так


1-1081346480
очень нужно
2004-04-07 18:01
2004.04.25
копирование текста с другой формы


1-1081418994
BOA_KAA
2004-04-08 14:09
2004.04.25
Потомок TStringGrid




   Наверх