[Zazazu]

Здравствуйте. у меня две формы: на Form1 - Button1, на другой PaintBox.
пишу событие на Button1, чтоб при нажатии рисунок рисовался на PaintBox в Form2.
Выдает ошибку. Подскажите пожалуйста

Код:

procedure TForm1.Button1Click(Sender:TObject);
begin
 Form2.PaintBox1.Canvas.Ellipse(100,100,200,200);
end;

MAD: оформляем код!

[poli-smen]

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

Здравствуйте. у меня две формы: на Form1 - Button1, на другой PaintBox.
пишу событие на Button1, чтоб при нажатии рисунок рисовался на PaintBox в Form2.
Выдает ошибку. Подскажите пожалуйста

procedure TForm1.Button1Click(Sender:TObject);
begin
Form2.PaintBox1.Canvas.Ellipse(100,100,200,200);
end;

Во-первых этот код у меня никакой ошибки не выдаёт (подозреваю что ты просто не подключил второй модуль к первому с помощью uses)
Во-вторых рисовать на TPaintBox нужно в его событии OnPaint:

Код:

procedure TForm2.PaintBox1Paint(Sender: TObject);
begin
  PaintBox1.Canvas.Ellipse(100, 100, 200, 200);
end;

[Zazazu]

модули я подключила, при компиляции ошибок не выдает, но при нажатии выход сообщение Project Project1.exe raised exception class EAccessViolation with message 'Access violation at adress ......'

[poli-smen]

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

модули я подключила, при компиляции ошибок не выдает, но при нажатии выход сообщение Project Project1.exe raised exception class EAccessViolation with message 'Access violation at adress ......'

Ошибка где-то в другом месте.
При возникновении ошибки "Access Violation" нужно смотреть, что находится по тому адресу о котором написано в этом сообщении об ошибке: Меню -> Search -> Find Error

[Zazazu]

Сообщение от poli-smen

Ошибка где-то в другом месте.
При возникновении ошибки "Access Violation" нужно смотреть, что находится по тому адресу о котором написано в этом сообщении об ошибке: Меню -> Search -> Find Error

открыла СРU, если честно не поняла, как искать ошибку((

[poli-smen]

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

открыла СРU, если честно не поняла, как искать ошибку((

Если "Find Error" открывает окно CPU, значит исключение происходит за пределами твоего проекта (но сама ошибка вероятнее всего всё же в твоём проекте). Можешь попробовать в настройках проекта установить эту галочку: Меню -> Project -> Options -> Compiler -> "Use Debug DCUs", тогда "Find Error" попытается найти место исключения в исходниках за пределами твоего проекта, хотя скорее всего это тебе ничего не даст, так как место возникновения исключения и место допущенной ошибки не всегда совпадает.