去掉Dblookupeh控件的自己填充功能
来源:互联网 发布:迅雷linux版 编辑:程序博客网 时间:2024/06/10 07:48
这个自动填充功能当数据出现
aa
aaa
aaaa
时就会出现aaa 最后一个a删不掉的情况。
解决方法就去掉这个自动填充功能。
在特定情况可以加快这个控件的速度
打开Dblookupeh.pas 文件一般在 delphi/bin/ 目录下
找到
function TCustomDBLookupComboboxEh.LocateStr(Str: String; PartialKey: Boolean): Boolean;
var
Options: TLocateOptions;
CurOnChangeEvent: TNotifyEvent;
begin
Result := False;
if not FListActive or not CanModify(True) then Exit;
if PartialKey then
Options := [loCaseInsensitive, loPartialKey]
else
Options := [loCaseInsensitive];
try
Result := FListLink.DataSet.Locate(FListField.FieldName, Str, Options);
if Result then
begin
FTextBeenChanged := False;
CurOnChangeEvent := OnChange;
OnChange := HookOnChangeEvent;
SetKeyValue(FListLink.DataSet.FieldValues[FKeyFieldName]);
SetEditText(FListField.DisplayText);
SelStart := Length(Text);
SelLength := Length(Str) - SelStart;
OnChange := CurOnChangeEvent;
if FTextBeenChanged and Assigned(OnChange) then
OnChange(Self);
end else if Style = csDropDownEh then
SetKeyValue(Null);
except
{ If you attempt to search for a String larger than what the field
can hold, and exception will be raised. Just trap it and
reset the SearchText back to the old value. }
if Style = csDropDownListEh then
begin
SetEditText(Text);
SelStart := Length(Text);
SelLength := Length(Text) - SelStart;
end else
SetKeyValue(Null);
end;
end;
-------------
把if Result then 改为 if False then
再打开原程序,,重新编绎
- 去掉Dblookupeh控件的自己填充功能
- 去掉Dblookupeh控件的自己填充功能
- 用juery的自动填充控件autocomplete实现自动填充功能
- Chrome表单如何去掉默认的淡黄色背景及如何关闭浏览器自带填充表单功能?
- 让CStatic控件根据自己的需要改变,文本,文本颜色,填充背景色
- MVC的自动填充功能
- Chrome浏览器自动填充的表单如何去掉淡黄色背景???
- 去掉chrome记住密码后的默认填充样式
- 去掉WebView的缩放控件
- 如何填充 TreeView 控件的 XML 数据
- 填充dgv控件的行和列
- 自动完成填充控件AutoCompleteExtender控件的使用
- javafx中vbox控件最下面的控件自动填充
- Android中选择控件、自动填充、GridView控件的使用
- 自己的频谱控件
- 定制自己的控件
- 创建自己的控件
- PowerDesigner 里面的mirror功能去掉
- Asp.net教程链接
- 你一定要知道的71个做饭技巧
- 凡人日记
- 去掉Dblookupeh控件的自己填充功能
- 搞搞Google谷歌新曲(一)插电源上网还打电话
- 去掉Dblookupeh控件的自己填充功能
- 深入了解内存
- Asp.net多媒体下载链接
- DOS直接写屏
- 小资音乐 - 巴萨诺瓦(Bossa Nova)
- 中产阶级音乐 - 新世纪音乐(New Age)
- XML文檔的讀取
- 图形程序运行的条件
- 还是"搬家"吧!