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

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

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

 

你可能感兴趣的:(function,Delphi)