作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
有没有办法访问在 Devart(核心实验室)TCRDBGrid 搜索栏中输入的文本?
我尝试实现 OnKeyDown 事件,但该事件在输入搜索字段期间没有发生,只有在选择网格本身时才发生。没有其他看起来相关的事件。
文本似乎进入了 TEdit,它是 TCRGridTitleEdit 的一部分,它是 TCRDBGrid 的一部分,但是是私有(private)的。
有没有办法获取搜索文本?
示例 TCFGBGrid:
+---------+------------+
| UserId | UserName | <- Column titles
+---------+------------+
|[987654] | [ ] | <- Search bar (searching for UserId 987654)
+---------+------------+
| 123456 | Wile Cau | <- Data
+---------+------------+
| ... | ... | <- More data
最佳答案
TCRDBGrid 随源代码一起分发。您可以修改源代码:
声明事件类型:
TOnTextChanged = procedure (Sender: TObject; Text: string) of object;
private
FOnFilterChanged: TOnTextChanged;
FOnSearchChanged: TOnTextChanged;
public
property OnFilterChanged: TOnTextChanged read FOnFilterChanged write FOnFilterChanged;
property OnSearchChanged: TOnTextChanged read FOnSearchChanged write FOnSearchChanged;
procedure TCRGridTitleEdit.ProcessEdit;
begin
if (FActiveColumn = nil) or (CRDBGrid = nil) or not FEdit.Modified then
Exit;
if FAsFilter then
with CRDBGrid do begin
try
TCRColumn(FActiveColumn).GetFilterExpression(FEdit.Text);
FFilterExpressions[FActiveColumn.Index] := FEdit.Text;
Self.Caption := FFilterExpressions[FActiveColumn.Index];
if Assigned(FOnFilterChanged) then
FOnFilterChanged(self, FEdit.Text);
except
on EConvertError do begin
FEdit.SelectAll;
raise;
end;
end;
end
else
try
with FActiveColumn.Field do
DataSet.Locate(FieldName, {$IFDEF CLR}Variant{$ENDIF}(FEdit.Text), [loCaseInsensitive,loPartialKey]);
if Assigned(FOnSearchChanged) then
FOnSearchChanged(self, FEdit.Text);
except
on EConvertError do
Exit;
end;
end;
private
function GetOnFilterChanged: TOnTextChanged;
procedure SetOnFilterChanged(Value: TOnTextChanged);
function GetOnSearchChanged: TOnTextChanged;
procedure SetOnSearchChanged(Value: TOnTextChanged);
published
property OnFilterChanged: TOnTextChanged read GetOnFilterChanged write SetOnFilterChanged;
property OnSearchChanged: TOnTextChanged read GetOnSearchChanged write SetOnSearchChanged;
function TCRDBGrid.GetOnFilterChanged: TOnTextChanged;
begin
Result := CRGridTitleEdit.OnFilterChanged;
end;
procedure TCRDBGrid.SetOnFilterChanged(Value: TOnTextChanged);
begin
CRGridTitleEdit.OnFilterChanged := Value;
end;
function TCRDBGrid.GetOnSearchChanged: TOnTextChanged;
begin
Result := CRGridTitleEdit.OnSearchChanged;
end;
procedure TCRDBGrid.SetOnSearchChanged(Value: TOnTextChanged);
begin
CRGridTitleEdit.OnSearchChanged := Value;
end;
关于delphi - 如何访问 TCRDBGrid 组件中的搜索文本?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3995426/
有没有办法访问在 Devart(核心实验室)TCRDBGrid 搜索栏中输入的文本? 我尝试实现 OnKeyDown 事件,但该事件在输入搜索字段期间没有发生,只有在选择网格本身时才发生。没有其他看起
我是一名优秀的程序员,十分优秀!