procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with StringGrid1.Canvas do begin
if gdFocused in State then begin
Brush.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
end;
end;
end;
Rect: TRect; State: TGridDrawState);
begin
with StringGrid1.Canvas do begin
if gdFocused in State then begin
Brush.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货