Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

Как оповестить главную форму? 


UserL   (2002-02-20 07:15) [0]

На форме находится главный фрэйм. В этот фрэйм закинул TChart и TScrollBox. На TScrollBox`e создаю динамически объект TFrame в котором находится Shape, StaticText и PopupMenu. В PopupMenu пункт УДАЛИТЬ при нажатии на который удаляется динамически созданный объект. Как сообщить главному Фрейму, что объект был удален?



UserL   (2002-02-20 11:58) [1]

Есть ли вообще такая возможность, оповестить родителя об уничтожении предка?



-=CrazyFish=-   (2002-02-20 12:24) [2]

А что, если для уничтожения объекта вызывать метод главного фрейма, в котором это удаление будет прописано. Тогда и проблем не будет.



UserL   (2002-02-20 12:50) [3]

А как???
Я его создаю так:

Procedure CreateColorObg;
Var
ListColor: TList;
Begin
...
NamesColor:=TNameColor.Create(ScrollBox1);
ListColor.Add(NamesColor);
With NamesColor Do
Begin
Parent:=ScrollBox1;
Height:=19;
Width:=ClientWidth-2;
Left:=0;
Top:=Height*(ListColor.Count-1);
BevelInner:=bvNone;
BevelOuter:=bvNone;
ColorSet:=ColorNew;
NameSet:=NameTi;
Name:="NamesColor"+IntToStr(ListColor.Count);
End;
...


А TNameColor = class(TFrame)
...



-=CrazyFish=-   (2002-02-20 13:13) [4]

Задавай у каждого объекта TNameColor уникальный номер в свойстве Tag. В метод главного фрэйма, который будет удалять нужный объект передавай его Tag. Зная Таg объекта его можно найти и удалить.



UserL   (2002-02-25 06:46) [5]

Я удаляю TNameColor по его PopupMenu. А в PopupMenu вызываю его метод Destroy. Как тогда мне сказать родителю, что компонент удален?



Набережных С.   (2002-02-25 16:50) [6]

Посмотри методы FreeNotification и Notification.



UserL   (2002-02-26 05:33) [7]

А как эти методы работают?
Если можно примерчик приведите...



Набережных С.   (2002-02-26 14:58) [8]

Ну какой тут примерчик? Конструкция A.FreeNotification(B) заносит объект B в список нотификации объекта A, а объект A - в список объекта B.
В результате при уничтожении объекта A будет вызван метод B.Notification(A, opRemove) и наоборот. Метод
Notification виртуальный, перекрыв его можно соответственно отреагировать, например:
procedure B.Notification(AComponent:TComponent; Operation:TOperation)
if (A = MyRef)and(Operation = opRemove) then
MyRef:=nil;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.033 c
14-43167          Igor_thief            2002-01-30 17:38  2002.03.14  
Если не слом, то почитаете.


14-43142          Dimka Maslov          2002-01-29 09:54  2002.03.14  
Неисповедимы пути его...


1-43001           Дмитрий_Ч             2002-02-28 12:38  2002.03.14  
Помогите кто знает как...


6-43130           Валера_               2001-12-27 12:47  2002.03.14  
Ребята! А нет ни у кого готового парсера HTML страницы


1-43015           vbazik                2002-02-26 00:56  2002.03.14  
Создание компонент