关于stringGrid的疑问

2004-08-30 09:06:26 226 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

StringGrid使用全书( 一) (1)正确地设置StringGrid列宽而不截断任何一个文字方法是在对StringGrid填充完文本串后调用SetOptimalGridCellWidth过程-----------程序片断------------------------------------------------- (* $Header$ Module Name : General/BSGrids.pas Main Progr 阅读详情

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

...全文

Python开发者必看：5分钟搞定Gemini API的3种调用方式（含代码示例）本文为Python开发者详细介绍了三种高效调用Gemini API的核心方式：基础同步调用、流式调用和聊天模式，并涵盖多模态应用等高级特性。通过清晰的代码示例和实战场景分析，帮助开发者快速掌握Gemini API的集成与优化，提升AI应用开发效率。阅读详情

肥仔胧

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

eagle_2 2004-08-31

打赏
举报

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[]一下

eagle_2 2004-08-31

打赏
举报

梅青松 2004-08-30

打赏
举报

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

肥仔胧 2004-08-30

打赏
举报

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

rcaicc 2004-08-30

打赏
举报

学习。。。。

capoatguitar 2004-08-30

打赏
举报

溜达溜达不说话

luke5678 2004-08-30

打赏
举报

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.

　

wofan 2004-08-30

打赏
举报

郁闷个啥

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

肥仔胧 2004-08-30

打赏
举报

心情极度郁闷

关于stringGrid的疑问

相关推荐