Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2350760
  • 博文数量: 816
  • 博客积分: 10000
  • 博客等级: 上将
  • 技术积分: 5010
  • 用 户 组: 普通用户
  • 注册时间: 2008-12-17 17:57
文章分类

全部博文(816)

文章存档

2011年(1)

2008年(815)

分类:

2008-12-17 18:03:08

当我用鼠标双击STRINGGRID的单元格时就改变其背景色和字体颜色呀,然后弹出一个窗体FORM2当我把FORM2关闭之后显示FORM1时被鼠标双击的单元格仍保持我更改之后的颜色呀
我这段代码当我把FORM2关闭后,FORM1中STRINGGRID被鼠标双击的单元格的颜色却不见了呀怎样改呀

我在MOUSEDOWN 事件写
IF SSDOUBLE IN SHIFT THEN
BEGIN
 WITH STRINGGRID1 DO
  BEGIN
   CANVAS.BURSH.COLOR:=CLYELLOW;
   CANVAS.FONT.COLOR:=CLRED;
   CANVAS.FILLRECT(STRINGGRID1.CELLRECT(STRINGGRID1.COL,STRINGGRID1.ROW));
   CANVAS.TEXTOUT(STRINGGRID1.CELLRECT(STRINGGRID1.COL,STRINGGRID1.ROW).LEFT,STRINGGRID1.CELLRECT(STRINGGRID1.COL,STRINGGRID1.ROW).TOP,STRINGGRID1.CELLS[STRINGGRID1.COL,STRINGGRID1.ROW]);
FORM2.SHOW;
  END;
END;



--------------------next---------------------

阅读(992) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~