![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
![]() Ну так делай. в чем проблема сохранить не только координаты объекта, но и путь к файлу???
ЗЫ. Народ, хватит на халяву кормить троля. |
#17
|
||||
|
||||
![]() Код:
TForm1 = class(TForm) private { Private declarations } procedure ImageDblClick(Sender: TObject); public { Public declarations } end; ... procedure TForm1.ImageDblClick(Sender: TObject); begin /// end; ... var AImage: TImage; begin AImage:=TImage.Create(Self); AImage.OnDblClick:=ImageDblClick; указатель на объект дополнительных свойств храни в свойстве Tag. Пишу программы за еду. __________________ |
#18
|
||||
|
||||
![]() Цитата:
З.Ы. Походу lmikle прав, нам всем так светит за ТСа весь код сборки забацать мелкими блоками ![]() Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#19
|
||||
|
||||
![]() Hint нельзя использовать, он отображает подсказку типа такой:
![]() а вот Tag никогда не отображается. Пишу программы за еду. __________________ |
#20
|
||||
|
||||
![]() но реально проще создавать в рантайм наследника TImage с дополнительными полями.
Пишу программы за еду. __________________ |