当我用鼠标双击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) |