Динамическое создание и уничтожение TChart

@Adeptus · Регистрация: 23.11.2009

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

Доброго времени суток! Проблема с уничтожением динамически созданного chart.
Имеется:

Delphi

var Ch: TPoint;
     c:TChart;
 
...
 
{события для перемещения chart-а по форме}
procedure TForm1.ChartMMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Ch.X:=X;
Ch.Y:=Y;
TChart(Sender).Tag:=1;
end;
 
procedure TForm1.ChartMMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if TChart(Sender).Tag=1 then begin
  TChart(Sender).Left:=TChart(Sender).Left+X-Ch.X;
  TChart(Sender).Top:=TChart(Sender).Top+Y-Ch.Y; end;
end;
 
procedure TForm1.ChartMMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
TChart(Sender).Tag:=0;
end;
 
procedure TForm1.N24Click(Sender: TObject);
begin
c:=TChart.Create(nil);
c.Left:=200;
c.Top:=100;
c.Visible:=true;
c.Height:=250;
c.Width:=400;
c.OnMouseDown:=ChartM.OnMouseDown;
c.OnMouseMove:=ChartM.OnMouseMove;
c.OnMouseUp:=ChartM.OnMouseUp;
c.Parent:=self;
c.PopupMenu:=PopupMenu1;
end;

в popupmenu две менюшки, одна из них "удалить диаграмму". Как мне по клику в popupmenu удалить тот chart на котором я нажал??? поиск по гуглу не предлагать, искал уже, не нашел((
Заранее спасибо!

@}{NiM · 07.12.2010, 22:40

тогда поищи в яндексе=)))
шучу.
а вообще у меня была похожая проблема. решал следующим образом(мне лично понравился)
Заводим список
type NTCharts=^charts;
charts=record
cht=Tchart;
next=NTChart;
end;
затем при добавлении делаем Ваш код+ стандартный способ добавления инф в список.
перейдем к теме как удалять -
при вызове popup он "прорисовывается" с определенными значениями top и left. если мы получаем команду удалить, то берем эти значения, проходимся по нашему списку и сверяем какому Tchart принадлежит это точка. Затем удаляем его (destroy) и сдвигаем список. вот и все. Написано страшно конечно, но на практике, на мой взгляд, очень удобно

@Adeptus · 08.12.2010, 14:18 **[ТС]**

Сообщение от }{NiM

Написано страшно конечно

Да уж))
проверять по top и left неправильно, вдруг два chart-а расположены друг на друге!
Но все равно спасибо за идею))

@}{NiM · 08.12.2010, 15:41

Если два чарта расположены друг на друге, то должен удаляться тот, который расположен "сверху" то есть в списке его параметры будут идти раньше. То при удалении можем идти до первоо совпадения.

@FuKingBrain · 09.12.2010, 10:19

По моему всё гораздо проще, как на счёт того, чтобы пользоваться параметром "Sender" приходящим на события? С помощью него можно очень просто определить нужный вам график.

@Adeptus · 10.12.2010, 21:07 **[ТС]**

делал так:

Delphi

procedure TForm1.ChartMMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Ch.X:=X;
Ch.Y:=Y;
if Button=mbLeft then TChart(Sender).Tag:=1 else
  if Button=mbRight then TChart(Sender).Tag:=2;
end;
 
procedure TForm1.ChartMMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if TChart(Sender).Tag=1 then begin
  TChart(Sender).Left:=TChart(Sender).Left+X-Ch.X;
  TChart(Sender).Top:=TChart(Sender).Top+Y-Ch.Y; end;
end;
 
procedure TForm1.ChartMMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if TChart(Sender).Tag=1 then TChart(Sender).Tag:=0;
end;
 
procedure TForm1.N24Click(Sender: TObject);
begin
k:=k+1; ShowMessage(inttostr(k));
c[k]:=TChart.Create(nil);
c[k].Left:=200;
c[k].Top:=100;
c[k].Height:=250;
c[k].Width:=400;
c[k].Name:='Chart'+IntToStr(k);
c[k].OnMouseDown:=ChartM.OnMouseDown;
c[k].OnMouseMove:=ChartM.OnMouseMove;
c[k].OnMouseUp:=ChartM.OnMouseUp;
c[k].Parent:=Form1;
c[k].PopupMenu:=PopupMenu1;
end;
 
procedure TForm1.N21Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 100 do
  if (c[i]<>nil)and(c[i].Tag=2) then begin c[i].Free; break; end;
end;

удаляет, но выходит ошибка когда я удаляю какой-то Chart, а потом удаляю Chart, который стоит в массиве после того Chart-а который я удалил. Я понятно объяснил нет?)))

Добавлено через 2 минуты
FuKingBrain, в N21Click Sender-ом является PopupMenu. Так что не катит.

@}{NiM 65 / 65 / 16 Регистрация: 25.11.2009 Сообщений: 283
	07.12.2010, 22:40	2
	тогда поищи в яндексе=))) шучу. а вообще у меня была похожая проблема. решал следующим образом(мне лично понравился) Заводим список type NTCharts=^charts; charts=record cht=Tchart; next=NTChart; end; затем при добавлении делаем Ваш код+ стандартный способ добавления инф в список. перейдем к теме как удалять - при вызове popup он "прорисовывается" с определенными значениями top и left. если мы получаем команду удалить, то берем эти значения, проходимся по нашему списку и сверяем какому Tchart принадлежит это точка. Затем удаляем его (destroy) и сдвигаем список. вот и все. Написано страшно конечно, но на практике, на мой взгляд, очень удобно 1

@Adeptus 6 / 6 / 6 Регистрация: 23.11.2009 Сообщений: 71
	08.12.2010, 14:18 [ТС]	3
	Сообщение от }{NiM Написано страшно конечно Да уж)) проверять по top и left неправильно, вдруг два chart-а расположены друг на друге! Но все равно спасибо за идею)) 0

@}{NiM 65 / 65 / 16 Регистрация: 25.11.2009 Сообщений: 283
	08.12.2010, 15:41	4
	Если два чарта расположены друг на друге, то должен удаляться тот, который расположен "сверху" то есть в списке его параметры будут идти раньше. То при удалении можем идти до первоо совпадения. 0

@FuKingBrain 53 / 52 / 22 Регистрация: 29.11.2010 Сообщений: 143
	09.12.2010, 10:19	5
	По моему всё гораздо проще, как на счёт того, чтобы пользоваться параметром "Sender" приходящим на события? С помощью него можно очень просто определить нужный вам график. 0

	10.12.2010, 21:07