VPF::Массив объектов события - Форум программистов

maxomsk

Дата 17.12.2006, 08:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 17.12.2006

Репутация: нет
Всего: нет

Я создаю массив объектов:

var
a:array[1..9] of TShape;

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

Код


for i:=1 to 9 do
begin
 Shape1:=TShape.create(self);
 Shape1.parent:=form1;
 Shape1.left:=10*i;
 Shape1.top:=10;
 a[i]:=shape1;
end;

...

Запускаю, объекты создаются, расстанавливаются как хотел.
Могу менять свойства, напр. a[i].shape:=clcircle и т.д.
Но с помощью других компонентов. А хотелось бы чтоб кликнув
по одному из созданных таким макаром экземпляров вызывался общий
метод, напр. чтоб менять цвет только у этого экземпляра. Скажите как, Плиз

Это сообщение отредактировал(а) Girder - 21.12.2006, 12:34

VICTAR

Дата 17.12.2006, 09:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Во-первых, предварительно добавлять на форму экземпляр не обязательно, а во-вторых, если тебе надо например обрабатывать нажатие на какой-либо компонент, создай отдельную процедуру и назначь ее для каждого своего "экземпляра".

Код


...
private 
    procedure ClickShape(Sender: TObject; Button: TMouseButton;
              Shift: TShiftState; X, Y: Integer);
  end; 

procedure TForm1.ClickShape(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TShape).Brush.Color:=clRed;
end;

...
for i:=1 to 9 do
begin
 a[i]:=TShape.create(self);
 a[i].parent:=form1;
 a[i].left:=10*i;
 a[i].top:=10;
 a[i].OnMouseDown:=ClickShape;
end;
...

maxomsk

Дата 18.12.2006, 23:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 17.12.2006

Репутация: нет
Всего: нет

Большое спасибо!
Сделал как вы посоветовали, все работает, а я голову ломал целую неделю,
а оно вон как просто оказалось.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »