AdvStringGrid单元格获得焦点

最新推荐文章于 2022-03-21 16:50:44 发布
原创 最新推荐文章于 2022-03-21 16:50:44 发布 · 1.1k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了一种通过编程方式设置特定单元格获得焦点的方法。通过使用AdvStringGrid组件，可以精确地定位到第二列第三行的位置，并使其成为当前活动单元格。 
     //第二列第三行获得焦点
     AdvStringGrid6.Col := 1;
     AdvStringGrid6.Row := 2;
     AdvStringGrid6.SetFocus;
TAdvStringGrid控件的一些常用的属性事件和方法.txt
03-31
TAdvStringGrid控件的一些常用的属性事件和方法.txtTAdvStringGrid控件的一些常用的属性事件和方法.txtTAdvStringGrid控件的一些常用的属性事件和方法.txtTAdvStringGrid控件的一些常用的属性事件和方法.txtTAdvStringGrid控件的一些常用的属性事件和方法.txt
TMS ADVStringGrid For Delphi XE8
02-02
1. **高度可定制性**：ADVStringGrid允许开发者自定义几乎所有的视觉和行为特性，包括单元格样式、颜色、字体、边框、滚动条等，以满足各种界面设计需求。 2. **数据绑定能力**：它支持多种数据源绑定，如数据库、...
Delphi AdvStringGrid 界面刷新后，让某单元格获取焦点
松龄的专栏
11-02 3847
AdvStringgrid.FocusCell(c, r)只能让某个单元格处于被选中状态，但是并不能获取焦点， 想要获取焦点的方法是：   AdvStringgrid.Col :=  r;   AdvStringgrid.row := c;   AdvStringgrid.SetFocus;
怎么用语句把焦点赋给stringgrid的某一单元格
chinalog的专栏
09-08 2021
StringGrid1.SetFocus; StringGrid1.Row := CurrentRow; //指定行号 StringGrid1.Col := CurrentCol; //指定列号 StringGrid1.EditorMode := True; 这样就实现在指定行列的 Cell 中处在编辑状态。
AdvStringGrid之表脚统计实现
weixin_30832351的博客
03-30 187
AdvString可以在表格尾部显示一个表尾行，设置代码如下： {***************************************************************************}{ TAdvStringGrid demo application}{ for De...
Delphi中StringGrid动态绑定下拉列表
10-09
如果需要，我们则设置 ComboBox 的位置和可见性，并将其设置为焦点。 问题2：如何将 ComboBox 中的值传递给该单元格 为了将 ComboBox 中的值传递给该单元格，我们可以使用 OnSetEditText 事件。在这个事件中，我们...
高级定制DBGridEh：24小时掌握自定义绘制单元格
!... # 摘要 本文深入探讨了DBGridEh组件的自定义绘制机制和实践技巧。...第三章展示了创建复杂单元格视觉效果、实现动态数据更新及高级绘制功能的实践技巧。进阶应用章节讲述了如何通过集成第三方控件、
给StringGrid添加复选框
05-08
7. **优化**：为了提高用户体验，你还可以考虑增加复选框的焦点样式，以及在编辑模式下隐藏复选框，仅在浏览模式时显示。 通过以上步骤，你就能在StringGrid中成功添加复选框功能，使用户能够方便地进行多选操作。...
Delphi StringGrid控件的用法
fangyuan621的专栏
03-21 3669
Delphi StringGrid控件 组件名称：StringGrid ●固定行及固定列： StringGrid.FixedCols:=固定行之数; StringGrid.FixedRows:=固定列之数; StringGrid. FixedColor:=固定行列之颜色; StringGrid.Color:=资料区之颜色; ●资料行列之宽高度： StringGrid.DefaultColWidth:=内定全部之宽度; StringGrid.Default...
StringGrid类详解
soboer
11-30 681
事件句柄 1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string); Options.goEditing = true才能触发此事件。此事件在单元格进入可编辑状态时触发。参数ACol，ARow为当前单元格的列号和行号（列号和行号都按顺序从0开始编码）。参数Value为当前单元格中的内容。 ...
AdvStringGrid使用方法(1)
热门推荐
记性不好，笔记而已
01-12 1万+
  本文简单的介绍了TAdvStringGrid控件的一些常用的属性事件和方法,主要用于统计数据和设计比较复杂的表格！核心部分：合并单元格的几个函数和过程！　　1.可否进行编辑 　　设置Options中goEditing设置为true。 　　2．点击鼠标时直接进入编辑，或允许、不允许改变行或列宽等特性，都可以在MouseActions中设置。 　　3.设置Grid中，某一列的数据格
AdvStringGrid常用操作
weixin_34292287的博客
07-21 409
AdvStringGrid1.Options:=[goEditing]; //设置单元格是否可编辑AdvStringGrid1.MouseActions.DirectEdit:=True; //设置点击单元格即进入编辑状态procedure TForm1.AdvStringGrid1CanEditCell(Sender: TObject; ARow, ACol: Integer; var ...
如何动态更新 TAdvStringGrid 的下拉列表内容？
最新发布
08-10
<think>我们之前已经讨论了如何在TAdvStringGrid中添加下拉选项。现在用户的问题是：如何动态更新这些下拉列表的内容？ 根据引用[2]：我们可以使用TAdvStringGrid的ClearComboString和AddComboString方法来更新下拉列表。但需要注意的是，这些方法是针对整个网格的，也就是说，它们会清除所有下拉列表的内容并重新添加。如果我们希望为不同的列设置不同的下拉列表，我们需要在更新时指定列。 然而，实际上，TAdvStringGrid的AddComboString方法是为当前激活的单元格（或当前列）添加下拉选项吗？根据引用[2]中的描述，它提到“如果列为组合框时，在此处同时设置下拉列表内容”，并且给出了一个设置多个组合框的例子。但例子中并没有明确如何为不同列设置不同的下拉列表。 经过查阅资料，实际上，TAdvStringGrid的ClearComboString和AddComboString方法操作的是全局的下拉列表，也就是说，它们会影响所有设置为下拉列表的列。这显然不能满足不同列有不同下拉列表的需求。 因此，我们需要使用另一种方式：使用列的ComboStrings属性。每个列（TGridColumn）都有一个ComboStrings属性（TStrings类型），我们可以直接操作这个属性来为每一列设置独立的下拉列表。 动态更新特定列的下拉列表内容的步骤： 1. 确保已经将目标列的ComboUsed属性设置为True，ButtonType设置为btCombo（或btComboEdit，如果允许编辑的话）。 2. 通过列的ComboStrings属性来管理该列的下拉列表内容。 示例代码： 假设我们要更新第3列（索引为2）的下拉列表内容： ```delphi // 清除该列原有的下拉选项 AdvStringGrid1.Columns[2].ComboStrings.Clear; // 添加新的选项 AdvStringGrid1.Columns[2].ComboStrings.Add('新选项1'); AdvStringGrid1.Columns[2].ComboStrings.Add('新选项2'); AdvStringGrid1.Columns[2].ComboStrings.Add('新选项3'); // 如果需要，可以设置排序 AdvStringGrid1.Columns[2].ComboSorted := True; // 设置下拉列表排序 AdvStringGrid1.Columns[2].ComboDropDownCount := 8; // 设置下拉显示的最大项数 ``` 这样，我们就只更新了第3列的下拉列表内容，而其他列的下拉列表内容保持不变。 另外，如果我们需要在运行时根据某些条件动态改变下拉列表内容（例如，根据另一个单元格的值），我们可以在事件中处理，比如OnGetCellComboString事件。这个事件允许我们在单元格获得焦点时动态设置下拉列表内容。 使用OnGetCellComboString事件的示例： 1. 在事件中，我们可以根据行和列来指定下拉列表的内容。 ```delphi procedure TForm1.AdvStringGrid1GetCellComboString(Sender: TObject; ACol, ARow: Integer; AItems: TStrings); begin if ACol = 2 then // 只处理第3列 begin AItems.Clear; // 根据条件添加选项，例如根据第1列的值 case StrToIntDef(AdvStringGrid1.Cells[0, ARow], 0) of 1: begin AItems.Add('选项1-1'); AItems.Add('选项1-2'); end; 2: begin AItems.Add('选项2-1'); AItems.Add('选项2-2'); end; else AItems.Add('默认选项'); end; end; end; ``` 注意：使用OnGetCellComboString事件时，需要确保该列的ComboUsed已经设置为True。 总结动态更新下拉列表的两种方法： 1. 直接通过列的ComboStrings属性：适用于该列的下拉列表内容固定或需要整体更新。 2. 使用OnGetCellComboString事件：适用于下拉列表内容依赖于其他单元格的值（即动态变化）。 因此，用户可以根据具体需求选择合适的方法。 注意：在更新下拉列表内容后，可能需要刷新当前单元格（如果该单元格正处于编辑状态）以显示新的下拉列表。可以使用AdvStringGrid1.Repaint或AdvStringGrid1.Invalidate来强制重绘。 另外，如果用户使用的是旧版本的TAdvStringGrid（如随Delphi7的版本），可能没有Columns属性，那么就需要使用其他方法，比如使用CellControls属性来管理嵌入的控件。但较新版本（如TMS Component Pack中的）都支持Columns属性。 根据引用[4]中提到的，TAdvStringGrid功能非常丰富，因此建议用户查阅官方文档以获取更详细的信息。 现在，我们可以生成相关问题：</think>### 如何动态更新 TAdvStringGrid 的下拉列表内容 在 TAdvStringGrid 中动态更新下拉列表内容有两种主要方法，根据您的需求选择适合的方式： --- #### 方法 1：直接修改列的 ComboStrings 属性（推荐） 这是最直接的方式，适用于为特定列设置独立的下拉列表： ```delphi // 更新第 3 列（索引 2）的下拉选项 var NewOptions: TStringList; begin NewOptions := TStringList.Create; try // 添加新选项 NewOptions.Add('北京'); NewOptions.Add('上海'); NewOptions.Add('广州'); NewOptions.Add('深圳'); // 替换整个下拉列表 AdvStringGrid1.Columns[2].ComboStrings.Assign(NewOptions); // 设置可选属性 AdvStringGrid1.Columns[2].ComboSorted := True; // 启用排序 AdvStringGrid1.Columns[2].ComboDropDownCount := 6; // 显示的最大项数 finally NewOptions.Free; end; end; ``` --- #### 方法 2：使用 OnGetCellComboString 事件 适用于需要根据单元格位置动态生成不同下拉列表的场景： ```delphi procedure TForm1.AdvStringGrid1GetCellComboString( Sender: TObject; ACol, ARow: Integer; AItems: TStrings); begin if ACol = 2 then // 仅处理第 3 列 begin AItems.Clear; // 根据行号动态生成选项 case ARow of 1: begin AItems.Add('红色'); AItems.Add('蓝色'); AItems.Add('绿色'); end; 2: begin AItems.Add('小型'); AItems.Add('中型'); AItems.Add('大型'); end; else AItems.Add('默认选项'); end; end; end; ``` --- #### 关键注意事项： 1. **列索引从 0 开始**：`Columns[0]` 表示第一列 2. **启用下拉功能**：确保目标列的属性已设置 ```delphi AdvStringGrid1.Columns[2].ComboUsed := True; // 启用下拉 AdvStringGrid1.Columns[2].ButtonType := btCombo; // 显示下拉按钮 ``` 3. **实时刷新**：修改后调用 `AdvStringGrid1.Repaint` 刷新显示 4. **多列支持**：为不同列重复上述操作 5. **数据绑定**：可从数据库加载选项 ```delphi Query1.SQL.Text := 'SELECT city_name FROM cities'; Query1.Open; AdvStringGrid1.Columns[2].ComboStrings := Query1.FieldByName('city_name').AsString; ``` > **提示**：使用 `ComboStrings` 比全局的 `AddComboString` 更灵活，支持不同列有独立的下拉列表[^2]。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值