[Мяфк]

Я придумал хорошее решение моей проблемы. Буду создавать имэджи прямо в программе (Timage.create). Спасибо, всем кто помогал.
Только вот возникла проблема, а как работать с такими имэджами, которые созданы программно? Например сделать событие онклик, или это не возможно и зря я затеял это?

[lmikle]

возможно.
Когда создаешь эти компоненты, то:
1. Запоминай ссылки на них в какой-нить List или массив - потом пригодитмя
2. При создании в св-во Tag пиши некоторый уникальный номер.
3. пишешь процку, которая делает нужные тебе действия. По Tag'у определяешь что за имадж и делаешь нужные вещи.
4. При создании имаджа адрес этого метода присваиваешь соотв. св-ву имаджа:

Код:

Image.OnClick := MyImageClick;

[Мяфк]

Большое спасибо.
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;

Только вот, как вызвать эту процедуру, то есть где писать этот вызов. И как узнать, что пользователь кликнул по этому имэджу, а не по другому.

[Janom]

Код:

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.

[Мяфк]

Спасибо, попробую!