Dibujar linea en panel

[*Caro*]

Empezado por Davidcfres

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;

Hola, si defines tu tipo de esta forma, con el mismo nombre, ya no necesitas hacer el Cast y ya no va a tomar el Canvas del formulario

Código Delphi [-]
type  TPanel = class(ExtCtrls.TPanel);

Saluditos