解决方案 »
- 跪求Delphi转到Linux下的kylix相应的转换工具
- 200分 --->多线程调用同一个函数的安全问题<--- 200分
- 从TTreeView继承新开发了一个控件,如何使用原来的TTreeView的右键菜单弹出的属性编辑器TTreeViewEditor?
- 如何获得Mouse当前指针位置?
- 紧急求救,如何才能输入某一硬盘路径,得到,此路径中所有的文件名,包括下级文件夹中的,
- 一个简单的EXCEL问题,望高手指教!
- ★★是关于“队列”的问题!书上的一个关于出队的过程,我觉得有问题,大家来看看啊!!
- 数据库时间范围查询的问题
- 还是汇编问题!!
- 小妹?^_^?捉虫:有没有人试过?????????
- 关于二层与三层之间的共用设计问题?
- c++函数转delphi问题
直接设置:cxLookupComboBox1.Properties.IncrementalSearch:=False ;
需要注意的是,在CXGRID中并没有把这个属性发布出来。需要用代码编写。或者是手动修改控件。
如果CXGRID的版本是比较早的版本。
需要修改 单元:unit cxTextEdit;procedure TcxCustomTextEdit.DoEditKeyPress(var Key: Char); function FillFromList(var AFindText: string): Boolean;
var
ATail: string;
L: Integer;
S: string;
begin
S := AFindText;
if InnerTextEdit.ImeLastChar <> #0 then
S := S + InnerTextEdit.ImeLastChar;
// 是这里的问题。WENGJIANFEI 修改;也可以直接设置不要这个功能;
if Properties.IncrementalSearch=true then
Result := ILookupData.Locate(S, ATail, False) //问题是这一句,只要注释即可,没看出来为什么
else
Result:=False;
............
{$IFNDEF VCL}const{$ENDIF} MousePos: TPoint): Boolean;
const
AGoDirectionMap: array [Boolean] of TcxEditLookupDataGoDirection = (egdNext, egdPrev);
var
APrevCurrentKey: TcxEditValue;
begin
//WENGJIANFEI 增加修改
IF Properties.IncrementalSearch = TRUE then
Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos) //这句直接注释掉即可.把Result:=True
ELSE
Result:=True;
if Result then
Exit;
//WENGJIANFEI 修改
//原来 Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos)
Result := GetScrollLookupDataList(escMouseWheel) and not HasPopupWindow and
Properties.UseLookupData and not ILookupData.IsEmpty and HandleMouseWheel(Shift);
if not(Result and DoEditing) then
Exit;
girdeh用起来确实方便