Скачать: CL | DM;

как в 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, а так же все функции из той же оперы.

---

← →
gdaujk ©   (2005-12-03 02:03) [3]

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

и т. д.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c