Массив компонентов

Code:

{

Листинг 1: Создание двухмерного динамического массива компонентов

© 1999, Юрий Лапицкий

}

{

Шаг ?1: Вначале, сделаем потомок стандартного TImage как дополнение

для их различия в будующем массиве компонентов.

}

type

TMyImage = class(TImage)

private

FXTag, FYTag: Longint;

published

property XTag: Longint read FXTag write FXTag default0;

property YTag: Longint read FYTag write FYTag default0;

end;

{===================}

{

Шаг ?2: В описание класса главной формы вставим двухмерный динамический

массив компонентов TMyImage, а в секцию private - необходимый код для

инициализации массива!

}

type

TForm1 = class(TForm)

//Процедура реализации события OnMouseUp при наведении на картинку

procedure ImageMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

public

Images: arrayofarrayof TMyImage;

private

{Процедура "создания" поля}

procedure MakeField(const MaxRows: byte = 4; MaxCols: byte = 4);

{Процедура "убора" поля (вообще-то не обязательно,

но я предпочитаю перестараться, чем недостараться...)}

procedure FreeField(const MaxRows: byte = 4; MaxCols: byte = 4);

end;

var

Form1: TForm1;

Bitmap1: TBitmap;

{

В Bitmap1 можно загрузить картинку. Например из файла Bitmap1.bmp:

Bitmap1:=TBitmap1.Create;

Bitmap1.LoadFromFile('Bitmap1.bmp');

}

{===================}

{

Шаг ?3: Реализация процедур в секции implementation.

}

procedure TForm1.MakeField(const MaxRows, MaxCols: byte);

var

Col, Row: byte;

begin

{Иницализация самого массива}

Initialize(Images);

System.SetLength(Images, MaxRows);

for Row := 0to MaxRows - 1do

System.SetLength(Images[Row], MaxCols);

{Создание и заполнение элементов массива}

for Row := 0to MaxRows - 1do

for Col := 0to MaxCols - 1do

begin

Images[Row, Col] := TMyImage.Create(Self);

with Images[Row, Col] do

begin

XTag := Row;

YTag := Col;

Picture.Bitmap := Bitmap1;

Left := Col * Bitmap1.Width;

Top := Row * Bitmap1.Height;

Width := Bitmap1.Width + Left;

Height := Bitmap1.Height + Top;

Center := True;

Transparent := True;

AutoSize := True;

Visible := True;

onMouseUp := ImageMouseUp;

Parent := Self;

end

end;

Invalidate

end;

procedure TMainForm.FreeField(const MaxRows, MaxCols: byte);

var

Col, Row: byte;

begin

{Уничтожение элементов массива}

for Row := 0to MaxRows - 1do

for Col := 0to MaxCols - 1do

Images[Row, Col].Destroy;

{Уничтожение самого массива}

Finalize(Images)

end;

procedure TMainForm.ImageMouseUp(Sender: TObject; Button:

TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

{ Проверка необязательна, но ведь можно (случайно)

присвоить это событие также и форме!}

if (Sender is TMyImage) then

begin

{

обратиться к элементу массива можно используя введ?нные

мною дополнения: Sender.XTag и Sender.YTag

Images[Sender.XTag, Sender.YTag]

}

end

end;