Hacer, mas bien lo que debes de hacer es poner dos TImage,
El Image1 es donde esta tu Grafico y el segundo debe de tener la propiedad transparent := True;
El Image2 debe de estar arriba del Image1..
Aqui lo vamos a hacer en el procedimiento OnActivate de la Forma
Código Delphi
[-]
private
Factor : Integer; public
end;
Código Delphi
[-]
Procedure TForm1.FormActivate(Sender: TObject);
Begin
Factor := 10;
Image2.Left := Image1.Left;
Image2.Top := Image1.Top;
Image2.Height := Image1.Height;
Image2.Width := Image1.Width;
SpeedButton1Click(Sender);
End;
Procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
K,I : Integer;
Begin
Image2.Refresh;
Image2.Canvas.Pen.Color := clRed;
Image2.Canvas.Pen.Width := 2;
Image2.Canvas.FillRect(Image2.ClientRect);
I := 1;
K := 0;
While K < Image2.Width Do
Begin
Image2.Canvas.MoveTo(I*Factor, 0);
Image2.Canvas.LineTo(I*Factor, Image2.Height);
Inc(K,Factor);
Inc(I);
End;
I := 1;
K := 0;
While K < Image2.Height Do
Begin
Image2.Canvas.MoveTo(0, I*Factor);
Image2.Canvas.LineTo(Image2.Width,I*Factor);
Inc(K,Factor);
Inc(I);
End;
Inc(Factor,5); End;
Con eso pones una cuadricula enfrente de tu Imagen