StringGrid 的 defaultdrawing := falseprocedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin With StringGrid1.Canvas do begin Brush.Bitmap:=image1.Picture.Bitmap; FillRect(Rect); end end;这里只实现一个图案,多个的可以自己调整
Rect: TRect; State: TGridDrawState);
begin
With StringGrid1.Canvas do begin
Brush.Bitmap:=image1.Picture.Bitmap;
FillRect(Rect);
end
end;这里只实现一个图案,多个的可以自己调整