type
TForm1 = class(TForm)
SQLConnection1: TSQLConnection;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure ImageClick(Sender: TObject);
public
{ Public declarations }
end;
const
ImageCount = 10;
ImageWidth = 40;
ImageHeight = 40;
var
Form1: TForm1;
Images: array[1..ImageCount] of TImage;
implementation
{$R *.dfm}
procedure TForm1.ImageClick(Sender: TObject);
begin
Edit1.Text := IntToStr(TImage(Sender).Tag);
end;
procedure TForm1.FormCreate(Sender: TObject);
var I: Integer;
begin
for I := 1 to ImageCount do
begin
Images[I] := TImage.Create(Self);
with Images[I] do
begin
Picture.LoadFromFile('C:\temp\MAPIF4L.ICO');
Left := (I-1)*(ImageWidth+1);
Top := 10;
Stretch := TRUE;
Width := ImageWidth;
Height := ImageHeight;
OnClick := ImageClick;
Parent := Self;
Tag := I;
end;
end;