双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

在线等待：如何调用StringGrid控件的DrawCell事件？　紧急！！！！！！！！！！

2003-01-08 05:07:42 331 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

skyclin 墨衍会员 · AI 创作全网分发关注 + 加入社区

ESP32+ST7789 LCD屏实战：5分钟搞定中文显示与图片渲染（附完整代码）本文提供了一份详细的ESP32驱动ST7789 LCD屏幕的实战指南。通过清晰的SPI硬件连接说明、ESP-IDF框架下的初始化代码，以及图片渲染与中文字库构建的核心算法，帮助开发者快速实现中文显示与图片渲染功能，并附有完整的代码示例和性能优化技巧。阅读详情

是这样的：
　　在StringGrid控件中嵌入一个combobox控件！当A列被选中后，combobx控件才显示出来！当用鍵盘上的向左光标键调节到A列时，combobox控件没显示出来？
我不知道为什么？

...全文

C#计算八字 private string[] jq = { "小寒", "大寒", "立春", "雨水", "惊蛰", "春分", "清明", "谷雨", "立夏", "小满", "芒种", "夏至", "小暑", "大暑", "立秋", "处暑", "白露", "秋分", "寒露", "霜降", "立冬", "小雪", "大雪", "冬至" };private string[] dz = { "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥", "子" }; 阅读详情

skyclin

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

noall 2003-01-28

打赏
举报

在SelectCell事件里写.
这样
if acol=1 then
begin

Button1.Left :=stringgrid1.left+stringgrid1.CellRect(ACol,arow).Left;
Button1.Top :=stringgrid1.Top+stringgrid1.CellRect(ACol,arow).top;
button1.Visible :=true;
end else
button1.Visible :=false;

noall 2003-01-28

打赏
举报

在selectcell事件里判断
并用stringgrid1.Selection.属性固定位置。

Billy_Chen28 2003-01-28

打赏
举报

错了，重来：
procedure TSTRINGGRID.DrawCell(...);
begin
if Assigned(FOnDrawCell) then FOnDrawCell(Self);
end;

const
DrawCell = WM_USER + 1;

procedure STRINGGRID(var Msg: TMessage); message STRINGGRID;
...

procedure TSTRINGGRID.DrawCell(var Msg: TMessage);
begin
DrawCell;
end;

Billy_Chen28 2003-01-28

打赏
举报

如果实在不行，你可以定义一个消息：

const
DrawCell = WM_USER + 1;

procedure STRINGGRID(var Msg: TMessage); message FHLM_STRINGGRID;
...

procedure STRINGGRID.DrawCell(var Msg: TMessage);
begin
DrawCell;
end;

goease 2003-01-28

打赏
举报

在SelectCell中写

outer2000 2003-01-08

打赏
举报

procedure TForm1.StringGrid1Enter(Sender: TObject);
begin
//here your code is ok;
end;

skyclin 2003-01-08

打赏
举报

procedure TfrmCBXX_KD.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);

if (gdFocused in State) and (Trim(StringGrid1.Cells[acol,0])='抄表标志') then
begin
LI_I:=ACol; LI_J:=ARow;
combobox1.Text:=stringgrid1.Cells[ACol,ARow];
combobox1.Top:=Rect.Top+StringGrid1.top+3;
combobox1.Left:=Rect.Left+StringGrid1.Left+3;
combobox1.Height:=Rect.Bottom-Rect.Top;
combobox1.Width:=Rect.Right-Rect.Left;
combobox1.Visible:=true;
combobox1.Text:='';
LB_CBBZ:=false;
combobox1.Update;
combobox1.SetFocus;
end;

当然，用鼠标点击目标列，可以看到combobox控件，
但是不用鼠标点击，就用鍵盘上的光标键来选择小格子，当用向左光标键从右向左
调动时，调动到目标列时，就看不到这个combobox控件！

所以我才提出如何调用StringGrid控件的DrawCell事件！
分不够的话，可以再加　！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

snowtiger2000 2003-01-08

打赏
举报

在onclick事件中添加显示的代码

✦双11狂欢大促✦

在线等待：如何调用StringGrid控件的DrawCell事件？ 紧急！！！！！！！！！！

相关推荐

双11狂欢大促

在线等待：如何调用StringGrid控件的DrawCell事件？　紧急！！！！！！！！！！