Форум: "Основная";
Текущий архив: 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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c