Цитата:
|
Сообщение от 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;