Скачать: CL | DM;

Автозаполнение   Найти похожие ветки 

← →
Yanis ©   (2003-07-30 15:20) [0]

Пожалуйста подскажите как реализовать автозаполнение в своём собственном броузере. Что бы после его закрытия и загрузки при вводе адреса который уже вводился выпадала строка, короче всём понятно. Так же было бы неплохо узнать где хранится список автозаполнения IE. Спасибо.

---

← →
Yanis ©   (2003-07-30 15:39) [1]

Что никаких идей?

---

← →
Yanis ©   (2003-07-30 15:49) [2]

Пойду на Sources.ru, а то здесь не дождёшся пока какой-нибудь великий программист тебе подскажет, все зазнались.

---

← →
Anatoly Podgoretsky ©   (2003-07-30 16:08) [3]

Знаешь почему тебе в очередной раз никто отвечать не хочет, так это потому что у тебя в очередной раз "все зазнались."
И то правда, где же взять достойных для тебя программистов!

---

← →
Yanis ©   (2003-07-30 16:13) [4]

Но я то не зазнался, если что знаю то обязательно помогаю. А ты т.е. вы только стебаться можете?

---

← →
ggsoft ©   (2003-07-30 16:30) [5]

А почему же сразу в "Потрепаться" вопрос - не такой уж треп..., хотя, конечно

> Yanis
ты gоторопилcя с выводами о "зазнались"... как мне кажется.
А тебе что трудно прочитать MSDN - SHAutoComplete() - самый простой путь, или IAutoComplete (IAutoComplete2)


interface
function SHAutoComplete(hwndEdit: THandle; Flags: Cardinal): HRESULT; stdcall;

implementation
function SHAutoComplete; external "ShlWApi" name "SHAutoComplete";

перед использованием: CoInitialize(nil), после: CoUnInitialize

---

← →
RIMMER ©   (2003-08-05 03:10) [6]

Вот:

unit WinAPI_SHAutoComplete;

interface
uses ActiveX;

function SHAutoComplete(hwndEdit: THandle; Flags: Cardinal): HRESULT; stdcall;

function EnableAutoComplete(Handle: THandle; FileSystem, URL: Boolean): Boolean;

implementation



function SHAutoComplete; external "ShlWApi" name "SHAutoComplete";


function EnableAutoComplete(Handle: THandle; FileSystem, URL: Boolean): Boolean;
const
SHACF_FILESYSTEM = $00000001;
SHACF_URLHISTORY = $00000002;
SHACF_URLMRU = $00000004;
SHACF_USETAB = $00000008;
const
IFileSystem: array[Boolean] of Cardinal = (0, SHACF_FILESYSTEM);
IURL: array[Boolean] of Cardinal = (0, SHACF_URLHISTORY or SHACF_URLMRU);
var
Flags: Cardinal;
begin
Result := False;

Flags := IFileSystem[FileSystem] or IURL[URL];
if Flags <> 0 then
begin
Flags := Flags or SHACF_USETAB;
Result := SHAutoComplete(Handle, Flags) = 0;
end;

initialization
OleInitialize(nil);
finalization
( FindWindowEx(ComboBox1.Handle,0,"Edit",nil) Вот:

unit WinAPI_SHAutoComplete;

interface
uses ActiveX;

function SHAutoComplete(hwndEdit: THandle; Flags: Cardinal): HRESULT; stdcall;

function EnableAutoComplete(Handle: THandle; FileSystem, URL: Boolean): Boolean;

implementation



function SHAutoComplete; external "ShlWApi" name "SHAutoComplete";


function EnableAutoComplete(Handle: THandle; FileSystem, URL: Boolean): Boolean;
const
SHACF_FILESYSTEM = $00000001;
SHACF_URLHISTORY = $00000002;
SHACF_URLMRU = $00000004;
SHACF_USETAB = $00000008;
const
IFileSystem: array[Boolean] of Cardinal = (0, SHACF_FILESYSTEM);
IURL: array[Boolean] of Cardinal = (0, SHACF_URLHISTORY or SHACF_URLMRU);
var
Flags: Cardinal;
begin
Result := False;

Flags := IFileSystem[FileSystem] or IURL[URL];
if Flags <> 0 then
begin
Flags := Flags or SHACF_USETAB;
Result := SHAutoComplete(Handle, Flags) = 0;
end;

initialization
OleInitialize(nil);
finalization
OleUninitialize;
end;


end.

Для комбобокса:

EnableAutoComplete(FindWindowEx(ComboBox1.Handle,0,"Edit",nil),False,True)

работает в точности как на IE

---

← →
Yanis ©   (2003-08-05 04:11) [7]

Хорошо когда есть такие люди как RIMMER!

To RIMMER © (05.08.03 03:10)
Спасибо, попробую.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.015 c