Управление динамически созданным объектом

@Александр_Алекс · Регистрация: 08.12.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте! Есть такая проблема, нужно по щелчку мыши на на PanelGroup разместить несколько кругов. Так вот, создал обработчик, клика, все отлично создается, но когда дело доходит до изменения формы (там квадрат по умолчанию) выбивает Acess Violation, что делать?

Вот код обработчика

Delphi

procedure TForm1.GraphGropClick(Sender: TObject);
var
  Shp:TShape;//dlya dinamicheski sozdavaemuh vershin grafa
  MouseCoords:TPoint;//Dlya polycheniya coordinat mushi
const
  Prefix:string='Vertex';
begin
  if AddVertex then
  begin
     //shitaem kol-vo ssozdannux vershin
     ShpCount:=ShpCount+1;
     //sozdaem object
     Shp:=TShape.Create(GraphGrop);
     Shp.Parent:=GraphGrop;
     //conertiryem koordinatu v koordinatu formu
     MouseCoords:=Mouse.CursorPos;
     MouseCoords:=ScreenToClient(MouseCoords);
     //zadaem imya
     Shp.Name:=Prefix+IntToStr(ShpCount);
     //zadaem formu
     with FindComponent(Prefix+IntToStr(ShpCount)) as TShape do
     Shape:=stCircle;
     //razmewaem shape na forme
     Shp.Left:=MouseCoords.X;
     Shp.Top:=MouseCoords.Y;
  end;
end;

Гугл юзал, поиск юзал, ничего не помогло. Заранее спасибо!

@FIL · 26.10.2014, 23:28

Для чего 21 строка нужна?
Напиши просто:

Delphi

1	Shp.Shape:=stCircle;

@Александр_Алекс · 26.10.2014, 23:42 **[ТС]**

Вот дела-то, я так пробовал, заругалось на что-то. Может где опечатался, хз...
Спасибо!

@FIL · 26.10.2014, 23:46

Если будешь пользовать поиск компонентов, учитывай, что FindComponent - метод формы (Form1.FindComponent) и будет находить только компоненты, владельцем которых является данная форма.
А ты для Shp владельцем назначаешь GraphGrop.
В этом и была проблема.

@Александр_Алекс 10 / 7 / 4 Регистрация: 08.12.2013 Сообщений: 165
	26.10.2014, 23:42 [ТС]	3
	Вот дела-то, я так пробовал, заругалось на что-то. Может где опечатался, хз... Спасибо! 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	26.10.2014, 23:46	4
	Если будешь пользовать поиск компонентов, учитывай, что FindComponent - метод формы (Form1.FindComponent) и будет находить только компоненты, владельцем которых является данная форма. А ты для Shp владельцем назначаешь GraphGrop. В этом и была проблема. 1

Управление динамически созданным объектом

Решение