Рисование на PaintBox в другом окне

[phomm]

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

procedure TForm1.Button1Click(Sender:TObject) ;
begin
 Form2:=TForm2.Create(Self);
 Form2.PaintBox1.Canvas.Ellipse(100, 100,200,200);
 Form2.Show
end;

Утечка будет, надо добавить Form2.Free в конце. Сорри за капитанство, но для новичка это стоит уточнять имхо.
А вообще такой метод стоит делать через локальную переменную (явную или неявную, а не глобальную, как у Вас), плюс можно бы и ошибки ловить - итоговый код

procedure TForm1.Button1Click(Sender:TObject) ;
var
 Form2:TForm2;
begin
  with TForm2.Create(Self) do 
  try
    PaintBox1.Canvas.Ellipse(100, 100,200,200);
    Show;
  finally // except по желанию
    Free;
  end;
end;

[Аватар]

Show и Free в таком контексте не совместимы. Форма создастся и тут же уничтожится. Showmodal да. А здесь просто в OnClose caFree