Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с ComboBox в KOL [Delphi, Windows]

Alexx2000 © (2005-06-26 22:43:00)
Как отобразить иконку в ComboBox, чтобы при этом было возможно редактировать текст в ComboBox? (Хочу сделать ComboBox типа такого, который используется в панели адреса в Explorer).

Alexx2000 (2005-07-12 13:05:00) [1]
Я рассмотрел полученные примеры, попробую что - нибудь сделать через пару недель, а сейчас мне пора уезжать для поступления в институт. Так, что всем спасибо за ответы.

Thaddy (2005-07-06 23:33:00) [2]
Alex: did you TRY the code? It does exactly what you asked says my russian teacher. It is the API to explorer combobox. ;)

ECM (2005-07-06 13:44:00) [3]
>Как отобразить иконку в ComboBox, чтобы при этом было возможно редактировать текст в ComboBox?

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

Alexx2000 (2005-07-05 22:47:00) [4]
Это не совсем то, что мне нужно.

Thaddy (2005-06-27 00:04:00) [5]
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.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »