Dibujar linea en panel

[Iron]

Buenos dias!!!

¿Se puede dibujar una linea en un Panel?, tengo el siguiente código:

Código Delphi [-]
if tipo_pantalla_=3 then begin;
        statictext2.Font.Color :=clWindowText;
        statictext2.Caption:='En Varios Puntos.';
        panel4.Visible:=true;
        statictext3.Font.Color :=clblue;
        statictext3.Caption:='DESABILITADO.';
        panel1.Enabled:=false;
           // Dibujamos lo que falta.
               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;
      end;

Pero la linea me sale por detrás del Panel , buscando en ayuda he leido que lo suyo sería usar un Paintbox.

Gracias

Este mensaje no debería estar aquí, sino en gráficos, pero no se borrarlo. Perdón

[Neftali [Germán.Estévez]]

Empezado por Iron

Este mensaje no debería estar aquí, sino en gráficos, pero no se borrarlo.
Perdón

No hay problema, ya te lo muevo yo.

[*Caro*]

Hola, así directo no puedes acceder al Canvas del Panel, primero tienes que desprotegerlo defínete este tipo en tu unit.

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

con eso ya deberías poder acceder al Canvas del Panel, sino, tienes que usar algún componentes que tenga el Canvas, como el TPaintBox, TImage......

Sobre como lo tienes no te esta dibujando detras, esta tomando el Canvas del formulario es por eso que te lo dibuja en el formulario.

Saluditos

[Iron]

No me sale , al poner

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

Me da error, el primero: (Expected ´:´ but ´=´found) lo cambié y ahora me da el siguiente error: (Expected an identifier but class found), espera un identificador pero encuentra una clase .

¿Alguna sugerencia, gracias?

[*Caro*]

Empezado por Iron

Me da error, el primero: (Expected ´:´ but ´=´found) lo cambié y ahora me da el siguiente error: (Expected an identifier but class found), espera un identificador pero encuentra una clase .

¿Alguna sugerencia, gracias?

Hola de nuevo, tienes que definirlo como un nuevo tipo.

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TPanel = class(ExtCtrls.TPanel);
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private declarations }
  ..................................

fijate donde lo he puesto, con eso no debería darte errores.

Saluditos

[marcoszorrilla]

Doy fe de que lo propuesto por Caro, funciona correctamente.

Un Saludo.