Fijate bien en como cadetill ha probado tu ejemplo, estos fallos casi siempre son una tonteria y se nos escapan pequeños detalles.
Prueba el ejemplo de cadetill, puede que tu fallo este en la clausula with que debe tener un begin y un end si a continuacion tienes mas de una sentencia.
with Sh do
begin
Canvas.FillRect(ClientRect);
Canvas.MoveTo(1, 1);
Canvas.LineTo(100,1);
Transparent := true;
Parent := Panel2;
end;
Suerte
|