procedure TForm1.show();

begin

stringgrid1.visible := false;

end;



procedure TForm1.button1click(Sender: TObject);

begin

stringGrid1.visible := true;

end;



procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

var

Rect1, Rect2 : TRect;

begin

if (ACol = 2) and (ARow = 2) then

begin

Rect1 := Classes.Rect(0, 0, Image5.Picture.Bitmap.Width, Image5.Picture.Bitmap.Height);

Rect2.Left := Rect.Left;

Rect2.Top := Rect.Top;

Rect2.Right := Rect.Left + Rect1.Right;

Rect2.Bottom := Rect.Top + Rect1.Bottom;



(Sender as TStringGrid).Canvas.BrushCopy(Rect2, Image5.Picture.Bitmap, Rect1, clOlive);

end;

stringgrid1.Cells[1,1] := 'a';

end;







위의 코드가 전부 입니다.

스트링 그리드에 이미지가 나타나도록 하는데 어떤 문제가 있는지요???



이렇게 하면 버튼1을 클릭했을때.. stringgird의 2,2 에 그림이 나타나야 되는게 아닌지...

고수님들의 조언을 부탁 드립니다.