![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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 с дополнительными полями.
|