关于stringGrid的疑问

[肥仔胧]

请问如何在stringGrid重实现打勾，也就是说，我想在其某列上实现一个Boolean型的列
类似于checkBox的功能；（非dbgrid）

[肥仔胧]

心情极度郁闷

[wofan]

郁闷个啥

在COL（0）里面打勾不就得

[luke5678]

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Grids;

type

TForm1 = class(TForm)

grid: TStringGrid;

procedure FormCreate(Sender: TObject);

procedure gridDrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

procedure gridClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

fcheck,fnocheck:tbitmap;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

var

i:SmallInt;

bmp:TBitmap;

begin

FCheck:= TBitmap.Create;

FNoCheck:= TBitmap.Create;

bmp:= TBitmap.create;

try

bmp.handle := LoadBitmap( 0, PChar(OBM_CHECKBOXES ));

With FNoCheck Do Begin

width := bmp.width div 4;

height := bmp.height div 3;

canvas.copyrect( canvas.cliprect, bmp.canvas, canvas.cliprect );

End;

With FCheck Do Begin

width := bmp.width div 4;

height := bmp.height div 3;

canvas.copyrect(

canvas.cliprect,

bmp.canvas,

rect( width, 0, 2*width, height ));

End;

finally

bmp.free

end;

end;

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

Rect: TRect; State: TGridDrawState);

begin

if not (gdFixed in State) then

with TStringGrid(Sender).Canvas do

begin

brush.Color:=clWindow;

FillRect(Rect);

if Grid.Cells[ACol,ARow]='yes' then

Draw( (rect.right + rect.left - FCheck.width) div 2,

(rect.bottom + rect.top - FCheck.height) div 2,

FCheck )

else

Draw( (rect.right + rect.left - FCheck.width) div 2,

(rect.bottom + rect.top - FCheck.height) div 2,

FNoCheck );

end;

end;

procedure TForm1.gridClick(Sender: TObject);

begin

if grid.Cells[grid.col,grid.row]='yes' then

grid.Cells[grid.col,grid.row]:='no'

else

grid.Cells[grid.col,grid.row]:='yes';

end;

end.

　

[capoatguitar]

溜达溜达不说话

[rcaicc]

学习。。。。

[肥仔胧]

应该来说说话啊
有不同的方法，大家拿来相互学习嘛

[梅青松]

用两个图片：一个打勾，一个不打勾
将图片画在stringgrid 中
在onclick事件中切换两个图片即可

[eagle_2]

stringgrid中嵌套一个checkbox控件不就得了，还能得到很多属性和事件呢
checkbox1.left:=stringgrid1.cellrect[].left;
checkbox1.top:=stringgrid1.cellrect[].top;
checkbox1.height:=stringgrid1.cellrect[].height;
checkbox1.width:=stringgrid1.cellrect[].width;

[eagle_2]

stringgrid中嵌套一个checkbox控件不就得了，还能得到很多属性和事件呢
checkbox1.left:=stringgrid1.cellrect[].left;
checkbox1.top:=stringgrid1.cellrect[].top;
checkbox1.height:=stringgrid1.cellrect[].height;
checkbox1.width:=stringgrid1.cellrect[].width;

再在每次重绘时记得:checkbox1.caption:=stringgrid1.cells[]一下