программно созданные shape

[saltonik]

здравствуйте! у меня такой вопрос.
программно создается n-ное количество shape-ов. а как потом работать с ними. например мне нужно по отдельности их использовать. какое у них будет name? shape у всех?

for i:=1 to n do
begin
Shape:=TShape.Create(Form3);
Shape.Parent:=Form3;
shape.left:=250;
shape.top:=500;
shape.height:= 20;
shape.width:= 40;
shape.onmousedown:= ShapeMouseDown;
shape.onmousemove:= ShapeMousemove;
shape.onmouseup:= ShapeMouseup;
end;

[Serge_Bliznykov]

saltonik
сейчас проверил
(перебрал через

  for k:=0 to Form3.ComponentCount-1 do
     if Form3.Components[k] is TShape then
         Memo1.Lines.Append(TShape(Form1.Components[k]).Name);

так вот. Вы будете смеяться, но всем им присвоилось ПУСТОЕ имя.

Поэтому, если Вы для чего-то нужно имя (ну и для удобства/красоты не помешает!)
добавьте в Ваш код присвоение имени:

for i:=1 to n do
begin
Shape:=TShape.Create(Form3);
Shape.Name := 'MyShape'+IntToStr(i);
Shape.Parent:=Form3;
....

Добавлено
позвольте ещё небольшое лирическое отступление...
А ещё, как и многих других VCL компонентов у TShape есть такое поле:
.Tag : Integer;
туда можно писать что угодно (целые числа, разумеется!) и потом использовать очень просто.
Т.е. при создании Вы пишете:
shape.Tag := i;
потом, в процедуре, например, на OnClick :
if TShape(Sender).Tag = 1 then ... или
case TShape(Sender).Tag of
1: 'нажали первый шейп'
2: 'второй' ...

[saltonik]

Сообщение от Serge_Bliznykov

saltonik
сейчас проверил
(перебрал через

  for k:=0 to Form3.ComponentCount-1 do
     if Form3.Components[k] is TShape then
         Memo1.Lines.Append(TShape(Form1.Components[k]).Name);

так вот. Вы будете смеяться, но всем им присвоилось ПУСТОЕ имя.

Поэтому, если Вы для чего-то нужно имя (ну и для удобства/красоты не помешает!)
добавьте в Ваш код присвоение имени:

for i:=1 to n do
begin
Shape:=TShape.Create(Form3);
Shape.Name := 'MyShape'+IntToStr(i);
Shape.Parent:=Form3;
....

Добавлено
позвольте ещё небольшое лирическое отступление...
А ещё, как и многих других VCL компонентов у TShape есть такое поле:
.Tag : Integer;
туда можно писать что угодно (целые числа, разумеется!) и потом использовать очень просто.
Т.е. при создании Вы пишете:
shape.Tag := i;
потом, в процедуре, например, на OnClick :
if TShape(Sender).Tag = 1 then ... или
case TShape(Sender).Tag of
1: 'нажали первый шейп'
2: 'второй' ...

for i:=1 to n do
begin
Shape:=TShape.Create(Form3);
Shape.Parent:=Form3;
shape.left:=250;
shape.top:=500;
shape.height:= 20;
shape.width:= 40;
Shape.tag:=i;
shape.onmousedown:= ShapeMouseDown;
shape.onmousemove:= ShapeMousemove;
shape.onmouseup:= ShapeMouseup;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
      case TShape(Sender).Tag of
1:  shape.left:= shape.left+100;
2:   shape.left:=shape.left+200;
end;
end;

вот так исправила, все равно не выходит(( а если через name делаю, то в процедуре таймера пишет что shape1 не объявленная переменная. что делать? помогите плиззз

[Serge_Bliznykov]

procedure TForm3.Timer1Timer(Sender: TObject);
begin

ну таймер сработал. С чего Вы решили, что в этом обработчике таймера Sender - это какой-то Shape?! Он имеет какое-то отношение к таймеру?! В данном случае sender - это исключительно сам Timer1 (кстати, подобное прямое приведение типов Sender'а без проверки вполне может закончится Access Violation !!!
я же не зря писал - в процедуре "OnClick" (ну, размеется, имелось в виду, процедуре, назначенной на OnClick Shape, а не какой-то там абстрактный объект!

Поймите, в процедурах обработки событий (events) Sender - это всегда тот объект, который "возбудил" данное событие! (OnClick - на какой объект кликнули, OnMouseDown - на каком объекте нажали кнопкой мышки и т.д.)

Вам же предлагаю:
1) Создавайте Shape'ы с именами!

Shape.Name := 'MyShape'+IntToStr(i);

2) поиск компонента осуществляйте через FindComponent()
и проверяйте, нашлось ли что-нибудь, или нет.
В случае, если таймер сработает до того, как будут созданы Shape - будут проблемы.
примерно так можно искать Ваш Shape1:

var
  MyComponent: TComponent;
  i : integer;
begin
  for i:=1 to 3 do begin
    MyComponent := Form3.FindComponent('MyShape'+IntToStr(i));
    if MyComponent <> nil then
          TShape(MyComponent).Left := TShape(MyComponent).Left + 100;
 end; 
...

3) может быть, Вы всё же расскажите, какая у Вас исходная задача? Может быть, Вы вообще не так её решаете...

[eduard93]

Все эти проблемы хорошо разобраны тут: http://www.delphikingdom.com/asp/vie...?catalogid=342

[SERG1980]

Создайте массив шэйпов и обращайтесь к ним как к итому элементу массива

shape[1]:=,shape[2]:=......