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

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

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

как в ListBox'e можно сделать переход в директорию [D7, Win95/98]

sergey1 © (2005-12-02 00:47:00)
может кто-то знает как можно сделать переход в директорию в ListBox'e при указании курсором и нажатии кнопки мыши.
перед этим я загрузил все директории в ListBox

buffer1:='c:\';
windows.SetCurrentDirectory(buffer1);
DlgDirList(mainwnd,buffer1, idlb_1,ide_1,DDL_READWRITE or DDL_DIRECTORY);

никак не могу сообразить что нужно делать дальше, процедуру вызова я знаю, а дальше не соображу ?
idlb_1 - это листбокс

WM_COMMAND :
begin
case loword(wParam) of
idlb_1 : begin
case hiWord(wParam) of
lbn_selchange : begin

gdaujk (2005-12-03 02:03:00) [1]
>Leonid Troyanovsky © (02.12.05 08:55) [1]

Познавательная статья.

>sergey1 © (03.12.05 01:10) [2]

Начни с замены Perform на SendMessage. Посмотри, как реализованы описаные в статье методы в VCL, например: ListBox1.Clear замени на SendMessage(ListBoxHandle, LB_RESETCONTENT, 0, 0); ListBox1.Items.BeginUpdate/EndUpdate - на

procedure BeginEndUpdate(Updating: Boolean); begin SendMessage(ListBoxHandle, WM_SETREDRAW, Ord(not Updating), 0); if not Updating then begin SendMessage(ListBoxHandle, CM_INVALIDATE, 0, 0); UpdateWindow(ListBoxHandle); end; end;

и т. д.

sergey1 (2005-12-03 01:10:00) [2]
это конечно замечательно но ведь там применены VCL компоненты, а у меня полностью WINDOWS API, а так же все функции из той же оперы.

Leonid Troyanovsky (2005-12-02 08:55:00) [3]

> sergey1 © (02.12.05 00:47)
> может кто-то знает как можно сделать переход в директорию
> в ListBox'e при указании курсором и нажатии кнопки мыши.

http://groups.google.com/group/fido7.ru.delphi.chainik/msg/32120d414ef28beb

--
Regards, LVT.

Наверх

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