[Zazazu]

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

Код:

1 2 3 4

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:

Код:

1 2 3 4

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" попытается найти место исключения в исходниках за пределами твоего проекта, хотя скорее всего это тебе ничего не даст, так как место возникновения исключения и место допущенной ошибки не всегда совпадает.

[phomm]

Предложу и такой способ проверки ошибки:
нажать на строке кода отрисовки кнопку F5 - установка точки останова (BreakPoint) - строка должна будет подсветиться красным и слева от кода появиться красная точка.
Тогда запустив программу и нажав на кнопку, выполнение остановится на этой строке. При этом можно будет проверить (навести мышку на слово в коде) чему равны Form2 и PaintBox1 - они НЕ должны быть nil
Если один из них всё же nil - то значит Вы работаете с ними вручную и они ещё не созданы. Об этом же могут говорить адреса в ошибке - если они близки к 0 (00000008 допустим) то ошибка практически 100% в том, что объект не создан.
Также можно прикрепить проект архивом в тему и мы поглядим, где может крыться проблема.