Konuyu Oyla:
  • Derecelendirme: 4/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Otomatik Tamamlama
#21
Şö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;




afemupewevoxwnhidcmx.gif
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla




Konuyu Okuyanlar: 1 Ziyaretçi