He puesto el nuevo Type y no da fallo ninguno, pero no se ve
:
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;
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;
Si en lugar de poner Panel4, pongo el nombre del formulario, la linea se ve donde no hay Panel´s.Gracias por vuestras respuestas