Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Как определить имя программно-создаваемого Timage
Форум программистов > Системное программирование > Delphi и Pascal > Delphi - Компоненты
RuSeL
Image:=TImage.Create(Self);
Image.parent:=Self;
LoadJPEGFromRes('f00', Image.Picture);
Image.OnMouseDown:=Image1MouseDown;
Image.OnMouseMove:=Image1MouseMove;
Image.OnMouseUp:= Image1MouseUp;
Image.PopupMenu:=PopupMenu1;
Image.AutoSize:=True;

Можно ли узнать имя созданного Image, чтобы потом отослать команду на удаление именно его? Если да - то каким образом?
Morpheus
RuSeL
самому задать ему имя
Image.Name = "bla-bla-bla"
etc
Цитата(RuSeL @ 16:05:2008 - 12:30) *
Можно ли узнать имя созданного Image, чтобы потом отослать команду на удаление именно его? Если да - то каким образом?
зачем чего-то куда-то посылать? у вас есть уже экземпляр объекта, зачем еще посылы какието?
RuSeL
Походу меня не совсем поняли. Я привёл свой код обработчика события TForm1.Button1Click. Он создаёт Image при нажатии. При втором кликании на кнопку, создаётся точно такой же рисунок и т.д. Но, походу, имена у них всех разные. Каждому задать имя я не могу, так как не знаю, сколько раз пользователь будет кликать на кнопку. Мне нужно узнать имя определённого Image, который будет вызывать PopupMenu при клике на нём правой клавишей мышки, для того чтобы удалить именно его через пукнт "Удалить" из PopupMenu.
Или же это делается как-то по-другому?
etc
Путь - через sender обработчика "Удалить".
RuSeL
Цитата(etc @ 16:05:2008, 17:34 ) *
Путь - через sender обработчика "Удалить".

Можно по-подробнее?
Вы имели ввиду команду (Sender as TImage).Destroy?
etc
Цитата(RuSeL @ 16:05:2008 - 17:02) *
Можно по-подробнее?
Можно, но неахота smile.gif, не потому как вредный а потому как все же уже есть, осталось все соединить в логическую цепочку

хинт: у TPopupMenu есть свойство PopupComponent, и еще принято пользовать Free вместо Destroy.
RuSeL
Спасибо за информацию. Проблему решил. Тему можно закрывать.
P.S. PopUpMenu1.PopUpComponent.Free smile.gif
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2008 IPS, Inc.