[Davidcfres]

Hola Iron,

Caro tiene razon, no puedes utilizar el canvas de un TPanel directamente.

la unica solucion es crear una nueva class :

Código Delphi [-]
 
type
  TMyPanel = class(TPANEL);
 
(....)
 
procedure TForm4.Button2Click(Sender: TObject);
begin
  TMyPanel(Panel1).canvas.Pen.Color:=clBlack;
  TMyPanel(Panel1).canvas.Pen.Width:=1;
  TMyPanel(Panel1).canvas.Pen.Style:=psSolid;
  TMyPanel(Panel1).canvas.MoveTo(10,10);
  TMyPanel(Panel1).canvas.LineTo(500,500);
end;

Nota :
cuando escribes :

Código Delphi [-]
 
            with Panel4 do
                   begin
                    canvas.Pen.Color:=clBlack;
                    canvas.Pen.Width:=1;
                    canvas.Pen.Style:=psSolid;
                    canvas.MoveTo(500,500);
                    canvas.LineTo(1000,1000);
                  end;

"with Panel4" no permite acceder al canvas del Panel pero al canvas de la form.

David