
20.05.2012, 11:36
|
Прохожий
|
|
Регистрация: 09.04.2012
Сообщения: 26
Репутация: 156
|
|
Вот еще задачка: в дочернем окне график, ну и естественно у меня ошибка
Вот мой код
Код:
procedure TfrmMDIParent.SformirClick(Sender: TObject);
var Graf1: TfrmGrafik1MDIChild;
begin
if ngrafik = true then
begin
Graf1:=TfrmGrafik1MDIChild.Create(Application);
Graf1.Caption:='вапвапапп';
Graf1:=TfrmGrafik1MDIChild(ActiveMdiChild); - это я добавил по аналогии с другим окном там обращение к таблице
With frmGrafik1MDIChild.Series1 do - ругается тут
begin
Clear;
Add(25, 'вап 1', clYellow);
Add(25, 'вап 2', clBlue);
Add(25, 'ваапа 3', clRed);
Add(25, 'укеукеук 4', clPurple);
end;
end;
end;
project такой то raised exception class EAccessViolation with massage 'Access violation at address и бла бла бла
|