Вниз
Скачать: 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.022 c
1-1081338901
Chapha
2004-04-07 15:55
2004.04.25
Unicode


3-1080667394
StatusQuo
2004-03-30 21:23
2004.04.25
DbLookupComboBox


1-1080915054
SergP
2004-04-02 18:10
2004.04.25
Можно ли отобразить в TWebbrowser картинку (форматов gif, jpg)


1-1081113111
vertal
2004-04-05 01:11
2004.04.25
Надежность программ на Delphi


3-1080378157
unicode
2004-03-27 12:02
2004.04.25
Не могу правильно написать запрос!




   Наверх