|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Я придумал хорошее решение моей проблемы. Буду создавать имэджи прямо в программе (Timage.create). Спасибо, всем кто помогал.
Только вот возникла проблема, а как работать с такими имэджами, которые созданы программно? Например сделать событие онклик, или это не возможно и зря я затеял это? Последний раз редактировалось Мяфк, 28.04.2011 в 01:38. |
#17
|
|||
|
|||
возможно.
Когда создаешь эти компоненты, то: 1. Запоминай ссылки на них в какой-нить List или массив - потом пригодитмя 2. При создании в св-во Tag пиши некоторый уникальный номер. 3. пишешь процку, которая делает нужные тебе действия. По Tag'у определяешь что за имадж и делаешь нужные вещи. 4. При создании имаджа адрес этого метода присваиваешь соотв. св-ву имаджа: Код:
Image.OnClick := MyImageClick; |
#18
|
|||
|
|||
Большое спасибо.
MyImageClick; - вместо этого что писать, тэг, нэйм? Как я понял, создаю имэджи в цикле. Код:
for j:=1 to 10 image:=Timage.Create(Form1); image.Top:=160+90*j; image.Left:=2; image.Height:=73; image.Width:=105; image.Enabled:=true; image.Visible:=true; image.Parent:=form1; image.Name:='Imain'+Inttostr(j); image.tag := j; image.Picture.LoadFromFile('E:\Проекты\База\image\'+Inttostr(Items[k].id)+'.gif'); end; Далее делаю процедуру, что-то типа: Код:
procedure Imageclick (tag:integer); begin if tag=image.tag then ..... end; Последний раз редактировалось Мяфк, 28.04.2011 в 14:30. |
#19
|
|||
|
|||
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, jpeg; type TForm1 = class(TForm) Image1: TImage; procedure FormCreate(Sender: TObject); procedure MyImageClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.MyImageClick(Sender: TObject); begin Form1.Caption:=IntToStr(TImage(Sender).tag); end; procedure TForm1.FormCreate(Sender: TObject); var Img:TImage; begin Img:=TImage.Create(Self); Img.Parent:=Form1; Img.Tag:=8008; Img.Picture.LoadFromFile('C:\1.bmp'); Img.OnClick:=MyImageClick; end; end. Последний раз редактировалось Janom, 28.04.2011 в 14:39. |
#20
|
|||
|
|||
Спасибо, попробую!
|