Cita:
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