Otomatik Tamamlama

[mrmarman]

Şöyle bir otomasyon da ben ekleyeyim... 

* Otomasyon derken programatik olarak arama popup otomatik açmaktan kasıt.

uses WinAPI.ShlwAPI;

procedure TForm1.FormShow(Sender: TObject);
var
  Options: dWord;
begin
  Options :=  SHACF_FILESYSTEM or SHACF_URLHISTORY or SHACF_URLMRU or
              SHACF_AUTOSUGGEST_FORCE_ON or SHACF_AUTOAPPEND_FORCE_ON;
  SHAutoComplete( Edit1.Handle, Options );

  Edit1.Text := 'https://www.delphican.com';
  Edit1.SetFocus;
  Edit1.SelStart := length(Edit1.Text);
  SendMessage( Edit1.Handle, wm_Char, $0, 1 );
end;