文件名称:自动匹配输入字符串(自动过滤)
文件大小:143KB
文件格式:RAR
更新时间:2012-03-23 08:32:07
自动匹配输入字符串(自动过滤)
自动过滤 procedure TAutoCompleteForm.FormCreate(Sender: TObject); begin FAutoComplete := CreateComObject(CLSID_AutoComplete) as IAutoComplete2; FStrings := TEnumString.Create(SourceMemo.Lines) as IUnknown; OleCheck(FAutoComplete.SetOptions(ACO_AUTOSUGGEST or ACO_UPDOWNKEYDROPSLIST)); OleCheck(FAutoComplete.Init(CompletionEdit.Handle, FStrings, nil, nil)); end;
【文件预览】:
自动匹配输入字符串2
----StrTools.pas(11KB)
----Main.dfm(2KB)
----ShlIntf.pas(5KB)
----Sample.exe(314KB)
----Sample.dpr(217B)
----www.delphifans.com.nfo(467B)
----Main.pas(927B)
----STD.INC(2KB)
----StrConst.pas(3KB)