Форум: "Потрепаться";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
ВнизАвтозаполнение Найти похожие ветки
← →
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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c