办法是有,你得自己画
到stringgrid的canvas上去画吧
到stringgrid的canvas上去画吧
解决方案 »
- spcomm 发送含结束符(#$00)的数据
- 请问在powerdesigner中怎样制作测试数据 ,急!!!
- 毕业设计要用,急啊,高手来看一下
- TServerSocket通信?
- delphi写的软件能够在Linux下使用么?
- 我想请问各路高手在listview里面实现排序怎么做?
- Mery Xmas, 内疚ing
- 我定义一个PChar型变量,当其长度大于256时,用函数Length或StrLen来取其长度,发现都是256,何解?
- 怎样展开自定义属性的子属性?
- Delphi6 自带的打包程序怎样做中文打包程序
- 偶用模式窗体,销毁后,系统总是报错:priviged instruction
- 同志们!提供几个好的DELPHI技术网站给我!
Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.Pen.Color:=clBlack;
if (ACol Mod 2)=0 then
begin
StringGrid1.Canvas.MoveTo(Rect.Left,Rect.Bottom);
StringGrid1.Canvas.LineTo(Rect.Right,Rect.Bottom);
end
else begin
StringGrid1.Canvas.MoveTo(Rect.Left,Rect.Top);
StringGrid1.Canvas.LineTo(Rect.Left,Rect.Bottom);
end;
end;