как в ListBox e можно сделать переход в директорию

← →
sergey1 © (2005-12-02 00:47) [0]

может кто-то знает как можно сделать переход в директорию в 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

← →
Leonid Troyanovsky © (2005-12-02 08:55) [1]

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

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

--
Regards, LVT.

← →
sergey1 © (2005-12-03 01:10) [2]

это конечно замечательно но ведь там применены VCL компоненты, а у меня полностью WINDOWS API, а так же все функции из той же оперы.

>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;

и т. д.

как в ListBox e можно сделать переход в директорию Найти похожие ветки