Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ListBox

Автор: ivan219 21.4.2006, 20:17

1. Мне нужно убрать полосы прокрутки т.е. чтоб их небыло видно даже когда текста становится много и он выходит за пределы видимой части. 2. Мне надо программно выделять определённую стороку.

Автор: Yanis 21.4.2006, 20:45

Цитата(ivan219 @  21.4.2006,  20:17 ) 1. Мне нужно убрать полосы прокрутки т.е. чтоб их небыло видно даже когда текста становится много и он выходит за пределы видимой части. Код SetScrollRange(ListBox1.Handle, SB_VERT, 0, 0, true); Цитата(ivan219 @  21.4.2006,  20:17 ) 2. Мне надо программно выделять определённую стороку.   Код ListBox1.ItemIndex := 2;

Автор: ivan219 21.4.2006, 21:04

Спасибо.

Автор: ivan219 22.4.2006, 17:39

SetScrollRange(ListBox1.Handle, SB_VERT, 0, 0, true); Это неработает т.е. ошибок нет но и скрол неисчез. Может даш маленький пример

Автор: Guedda 22.4.2006, 17:46

Цитата(ivan219 @  22.4.2006,  18:39 )  Это неработает т.е. ошибок нет но и скрол неисчез. Почему? У меня все работает... Вот скриншот. В ЛистБоксе 47 записей. Я в FormCreate прописал эту процедуру...

Автор: Yanis 23.4.2006, 19:35

Цитата(ivan219 @  22.4.2006,  17:39 ) Может даш маленький пример А то, что я привёл не пример?

Автор: ivan219 23.4.2006, 19:42

Да точно работает просто надо было запускать эту функцию после того как список заполнится но до этого скрол будет видно и если его поместить в  FormCreate нечего неполучится так как список в ListBox заполняется динамически, может кто знает как его вобще убрать. Есть ещё вопросы вот уменя 6  FListBox я у 5 из них убраб скрол но теперь мне надо их синхронизировать, вобщем какая порцедура отвечает за изменение положения ползунка

Автор: Yanis 23.4.2006, 19:59

Цитата(ivan219 @  23.4.2006,  19:42 ) вобщем какая порцедура отвечает за изменение положения ползунка Delphi 7 -> Help -> Windows SDK -> Указатель -> "Scroll Bar Functions" Добавлено @ 20:02  http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wceui40/html/ceconscrollbarfunctions.asp

Автор: Yanis 24.4.2006, 00:02

Минус что ли поставить тебе для стимуляции мозга... Хотя в таком случае я буду похож на преподов в универе и учителей в школе  Цитата(ivan219 @  23.4.2006,  19:42 ) может кто знает как его вобще убрать. Никак. Отслеживать прокрутку и заново прятать. К стати прятать можно ещё и стандартной для таких целей функцией ShowScrollBar: Код   ShowScrollBar(ListBox1.Handle, SB_BOTH, False); Цитата(ivan219 @  23.4.2006,  19:42 ) Есть ещё вопросы вот уменя 6  FListBox я у 5 из них убраб скрол но теперь мне надо их синхронизировать, Для прокрутки scroll bar'а используется функция SetScrollPos или сообщение SBM_SETPOS. В твоём случае для синхронизации прокрутки можно использовать ItemIndex Код   ListBox2.ItemIndex := ListBox1.ItemIndex;

Автор: ivan219 24.4.2006, 18:38

Я знаю как их синхронизировать  ListBox1.TopIndex:= ListBox6.TopIndex; я это зделал но препомощи шелчка мыши на самом ListBox а мне надо когда щёлкаеш непосредственно на самом Scroll как это зделать я незнаю стандартной процедуры в ListBox нет, так бы я и сам нашол, вчера всё перерыл неодна неподходит а это значит что надо както ещё но вот как я незнаю   если с можеш превести кокретный пример т.е. весь код с 2 ListBox чтоб на самом Scroll можно было щёлкать и 1  ListBox также реагировал. Я с этим ещё  несталкивался а ты на меня разозлился спрашивается за что

Автор: Yanis 24.4.2006, 19:03

Цитата(ivan219 @  24.4.2006,  18:38 ) Я с этим ещё  несталкивался а ты на меня разозлился спрашивается за что Ответ в PM

Автор: ivan219 24.4.2006, 19:54

Нет там ответа   И с сообщениями работать неумею. За это SetScrollRange(ListBox1.Handle, SB_VERT, 0, 0, true); спасибо всё работает  но вот со скролом проблема   Может всётаки есть добрые люди кторые помогут мне

Автор: Alexeis 25.4.2006, 14:11

ivan219, есть такое сообщение WM_VSCROLL - отсылается контролу когда по нему кликают или тянут, похоже его надо ловить и синхронизировать. Добавлено @ 14:14  я как-то синхронизировал два memo. Полной синхронизации добится не удалось, но со скролбарами у меня все работало - делал наследника от memo и в нем писал процедуру обработчик этого самого WM_VSCROLL

Автор: ivan219 25.4.2006, 19:33

WM_VSCROLL  Здорово   единственная проблема втом что я незнаю как ловить эти сообщения

Автор: Yanis 6.6.2006, 16:13

Цитата(ivan219 @ 25.4.2006,  20:33) WM_VSCROLL  Здорово   единственная проблема втом что я незнаю как ловить эти сообщения    Короче вот пример: Код unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Grids, StdCtrls, ComCtrls; type   TForm1 = class(TForm)     ListBox1: TListBox;     ListBox2: TListBox;     Label1: TLabel;     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);   private     { Private declarations }     procedure LBWndProc(var Msg: TMessage);   public     { Public declarations }   end; var   Form1: TForm1;   PLBWndProc, POldWndProc: Pointer; implementation {$R *.dfm} procedure TForm1.LBWndProc(var Msg: TMessage); begin   Msg.Result := CallWindowProc(POldWndProc, ListBox1.Handle, Msg.Msg,     Msg.wParam, Msg.lParam);   if (Msg.Msg = WM_VSCROLL) and (LOWORD(Msg.wParam) = SB_THUMBTRACK) then   begin     Label1.Caption := 'Pos is ' + IntToStr(HIWORD(Msg.wParam));     ListBox2.Perform(Msg.Msg, Msg.wParam, Msg.lParam);     SetScrollPos(ListBox2.Handle, SB_VERT, HIWORD(Msg.wParam), True);   end; end; procedure TForm1.FormCreate(Sender: TObject); begin   PLBWndProc := MakeObjectInstance(LBWndProc);   POldWndProc    := Pointer(SetWindowLong(ListBox1.Handle, GWL_WNDPROC, Integer(PLBWndProc))); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   if Assigned(PLBWndProc) then   begin     SetWindowLong(ListBox1.Handle, GWL_WNDPROC, Integer(POldWndProc));     FreeObjectInstance(PLBWndProc);   end; end;

Автор: ivan219 8.6.2006, 00:35

Спасибо

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)