Работа с ComboBox в KOL

← →
Alexx2000 (2005-06-26 22:43) [0]

Как отобразить иконку в ComboBox, чтобы при этом было возможно редактировать текст в ComboBox? (Хочу сделать ComboBox типа такого, который используется в панели адреса в Explorer).

← →
Thaddy (2005-06-27 00:04) [1]

Something Like this?

unit autocom1;
{
Title : Autocompleting edit box for KOL
Author : Thaddy de Koning
Date : April 14, 2005
Terms : Copyrighted freeware © 2005
Delphi Version: 4,5,6,7, 2005
Third Party Required: ShlwApi.pas (www.delphi-jedi.org)
Description: As it says :)

program autocomplete;
uses
Kol,
autocom1 in "autocom1.pas";
begin
NewForm1( Form1, nil);
Run(Form1.form);
end.
}

interface
uses
Windows, Messages, Kol, ShlwApi;

const
aoForceOn = $10000000;
aoForceOff = $20000000;
aoAppendForceOn = $40000000;
aoAppendForceOff = $80000000;
aoDefault = $0;
aoFileSystem = $1;
aoUrlHistory = $2;
aoUrlMru = $4;

type

PForm1=^TForm1;
TForm1=object(Tobj)
Form:pControl;
edit:PControl;
public
end;

procedure NewForm1( var Result: PForm1; AParent: PControl );

var
Form1:pForm1;

implementation

procedure NewForm1( var Result: PForm1; AParent: PControl );
var
Options:Dword;
begin
New(Result,Create);
with Result^ do
begin
Form:= NewForm(AParent,"KOL Autocomplete Example").SetSize(400,60);
Applet:=Form;
Form.Add2AutoFree(Result);
Edit:=NewEditbox(form,[]).setalign(caTop);
Edit.color:=clWindow;
Options := aoFileSystem or aoUrlHistory or aoUrlMru or
aoForceOn or aoAppendForceOn;
ShAutoComplete(Edit.Handle,Options);
Edit.Color:=clWindow;
end;
end;

initialization
OleInit;
finalization
OleUnInit;
end.

← →
Alexx2000 (2005-07-05 22:47) [2]

Это не совсем то, что мне нужно.

← →
ECM © (2005-07-06 13:44) [3]

>Как отобразить иконку в ComboBox, чтобы при этом было возможно редактировать текст в ComboBox?

ИМХО:
1) Перекрыть OnDrawItem (в качестве примера можно использовать EnhCombos (http://bonanzas.rinet.ru/enhcombos.zip) )
2) Поколдовать с размерами редактора... (как вариант - погрызть MSDN на предмет перекрытия событий при показе редактора)

← →
Thaddy (2005-07-06 23:33) [4]

Alex: did you TRY the code? It does exactly what you asked says my russian teacher. It is the API to explorer combobox. ;)

← →
Alexx2000 (2005-07-12 13:05) [5]

Я рассмотрел полученные примеры, попробую что - нибудь сделать через пару недель, а сейчас мне пора уезжать для поступления в институт. Так, что всем спасибо за ответы.

Работа с ComboBox в KOL Найти похожие ветки