Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Массив объектов события

Автор: maxomsk 17.12.2006, 08:58

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

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 и т.д.
Но с помощью других компонентов. А хотелось бы чтоб кликнув
по одному из созданных таким макаром экземпляров вызывался общий
метод, напр. чтоб менять цвет только у этого экземпляра. Скажите как, Плиз

Автор: VICTAR 17.12.2006, 09:43

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

Код


...
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

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