Delphi6 实现文本框的自动完成功能

来源:互联网 发布:淘宝店铺中奖怎么查询 编辑:程序博客网 时间:2024/05/01 04:56

function SHAutoComplete(hwndEdit: HWnd; dwFlags: DWORD): HResult; stdcall; external 'Shlwapi.dll';

procedure TForm1.FormCreate(Sender: TObject);
begin
  SHAutoComplete(Edit1.Handle,0);
end; 

 

原创粉丝点击