1 // ---------------------------------------------------------------------------
2 // Form的构造函数中填充StrinGrid单元格
3 __fastcall TForm1::TForm1(TComponent* Owner)
4 : TForm(Owner)
5 {
6 for (int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
7 {
8 for (int j = StringGrid1->FixedCols; j < StringGrid1->ColCount; j++)
9 {
10 StringGrid1->Cells[i][j] = i * 10 + j;
11 }
12 }
13 }
14
15 // ---------------------------------------------------------------------------
16 // 在StrinGrid的OnDrawCell事件中在指定的单元格绘制按钮
17 void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
18 int ARow, TRect &Rect, TGridDrawState State)
19 {
20 TStringGrid *sg = dynamic_cast<TStringGrid *>(Sender);
21
22 // 填充背景,准备重绘
23 sg->Canvas->FillRect(Rect);
24
25 // 如果当前正在绘制第三行第四列的格子(准备内嵌按钮的格子)
26 if (ARow == 3 && ACol == 4)
27 {
28 // 63 63 72 75 6E 2E 63 6F 6D
29 // 用StringGrid的Tag作按钮弹起或按下的标志, 1为弹起, 0为按下
30 if (sg->Tag == 1)
31 DrawFrameControl(sg->Canvas->Handle, &Rect,
32 DFC_BUTTON, DFCS_BUTTONPUSH | DFCS_PUSHED);
33 else
34 DrawFrameControl(sg->Canvas->Handle, &Rect,
35 DFC_BUTTON, DFCS_BUTTONPUSH);
36 }
37
38 // 以背景透明方式绘制出单元格的字符串
39 sg->Canvas->Brush->Style = bsClear;
40
41 sg->Canvas->TextOut(Rect.Left + 2,
42 (Rect.Height() - sg->Canvas->TextHeight("A") ) / 2 + Rect.Top,
43 sg->Cells[ARow][ACol]);
44 }
45
46 // ---------------------------------------------------------------------------
47 // 在StringGrid的OnMouseDown事件中判断如果当前鼠标下的格子是指定的格子
48 // 就改变StringGrid->Tag并使其重绘,以显示出按钮被按下的样子
49 void __fastcall TForm1::StringGrid1MouseDown(TObject *Sender,
50 TMouseButton Button, TShiftState Shift, int X, int Y)
51 {
52 TStringGrid *sg = dynamic_cast<TStringGrid *>(Sender);
53 if (!sg) return;
54
55 // 获取StringGrid中当前鼠标下的行和列
56 int nCol, nRow;
57 TPoint ptMouse = sg->ScreenToClient(Mouse->CursorPos);
58 sg->MouseToCell(ptMouse.x, ptMouse.y, nCol, nRow);
59
60 sg->Tag = nRow == 3 && nCol == 4? 1: 0;
61 sg->Invalidate();
62 }
63
64 // ---------------------------------------------------------------------------
65 // 在StringGrid的OnMouseUp事件中判断如果当前鼠标下的格子是指定的格子
66 // 就改变StringGrid->Tag并使其重绘,以显示出按钮被弹起的样子
67 void __fastcall TForm1::StringGrid1MouseUp(TObject *Sender,
68 TMouseButton Button, TShiftState Shift, int X, int Y)
69 {
70 TStringGrid *sg = dynamic_cast<TStringGrid *>(Sender);
71 if (!sg) return;
72
73 // 获取StringGrid中当前鼠标下的行和列
74 int nCol, nRow;
75 TPoint ptMouse = StringGrid1->ScreenToClient(Mouse->CursorPos);
76 sg->MouseToCell(ptMouse.x, ptMouse.y, nCol, nRow);
77
78 sg->Tag = 0; // 注意这里和上面OnMouseDown的不同
79 sg->Invalidate();
80
81 // 在OnMouseUp事件中处理点击事件
82 if (nRow == 3 && nCol == 4)
83 {
84 // 这里加入自己的代码即可
85
86 ShowMessage(String().sprintf(
87 TEXT("按钮 %s 被点击"), sg->Cells[nRow][nCol]));
88 }
89 }