使用stringgrid,如何使第一列的表格线不绘制(即只设置第一列的goHorzLine=false)?其他列的表格线仍然还是要。急救!! (50分)

  • 主题发起人 主题发起人 lotuscheng2
  • 开始时间 开始时间
L

lotuscheng2

Unregistered / Unconfirmed
GUEST, unregistred user!
如:
_______________________
|____|________|________|
| |________|________|
| |________|________|
|____|________|________|
 
//DefaultDrawing := False;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol = 0) and (ARow <> 0) then
begin
Rect.Bottom := Rect.Bottom +
Integer(Boolean(ARow<>StringGrid1.RowCount-1));
StringGrid1.Canvas.FillRect(Rect);
end;
end;
 
后退
顶部