Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Delphi: Общие вопросы > Как выдилть несколько строк в Listox'e

Автор: WERITAS 13.4.2007, 11:47

САБЖ. Не хочеца чето мне каждый раз при выборе нескольких строк в ListBox'е Ctrl держать....

Автор: MetalFan 13.4.2007, 11:49

странный вопрос. как связано то, что тебе держать Ctrl не хочется, с программированием?

Автор: skyboy 13.4.2007, 11:53

программно можно установить элементы свойства-массива selected в true.
А вот по какому событию устанавливать - сам определяй. Либо на onclick, либо на onmousemove... Либо ещё чего...

Автор: WERITAS 13.4.2007, 11:54

Ну так если Я хочу просто выбирать строки и всё! Тут без нового компонента никак не обойтись?

Автор: Sunvas 13.4.2007, 12:33

Цитата(WERITAS @ 13.4.2007, 11:54

)

Тут без нового компонента никак не обойтись?

Можно и обойтись. Держи:

Код


 function NewListBoxProc(wnd:HWND; uMsg:UINT; wParam:WPARAM; lParam:LPARAM):integer; stdcall;
 var
  Index: Integer;
  x,y:word;
  ch:boolean;
 begin
   if uMsg=WM_LBUTTONDOWN then
   begin
   x:=LOWORD(lParam); y:=HIWORD(lParam);
     index:=form1.listbox1.ItemAtPos(point(x,y),true);
     ch:=form1.ListBox1.Selected[index];
     SendMessage(form1.listbox1.Handle, LB_SETSEL,Longint(not ch), index);
   end else
      result:=CallWindowProc(Pointer(GetWindowLong(wnd,GWL_USERDATA)),wnd,uMsg,wParam,lParam);
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(listbox1.Handle,GWL_USERDATA,SetWindowLong(listbox1.Handle,GWL_WNDPROC, LPARAM(@NewListBoxProc)));
end;

Автор: ama_kid 13.4.2007, 12:56

Sunvas,
проверку на ItemIndex забыл (без этого ошибка будет вылазить при клике внутри бокса, но вне элемента):

Код

     index:=form1.listbox1.ItemAtPos(point(x,y),true);
     if index>=0 then
      begin
       ch:=form1.ListBox1.Selected[index];
       SendMessage(form1.listbox1.Handle, LB_SETSEL,Longint(not ch), index);
      end else result:=CallWindowProc(Pointer(GetWindowLong(wnd,GWL_USERDATA)),wnd,uMsg,wParam,lParam);
   end else
      result:=CallWindowProc(Pointer(GetWindowLong(wnd,GWL_USERDATA)),wnd,uMsg,wParam,lParam);

P.S. Кстати хитрая конструкция использования GWL_USERDATA - взял на заметку smile

Автор: MetalFan 13.4.2007, 13:57

скажите пжалуста, а зачем такой "изврат" с SetWindowLong???

Автор: Yanis 13.4.2007, 14:12

Кстати, вот так можно делать мультивыбор правой кнопкой без дополнительных клавишь:

Код

  if ListBox1.ItemAtPos(ListBox1.ScreenToClient(Mouse.CursorPos), True) > -1 then
    ListBox1.Selected[ListBox1.ItemAtPos(ListBox1.ScreenToClient(Mouse.CursorPos), True)] := True;

Автор: Sunvas 13.4.2007, 14:32

Цитата(Yanis @ 13.4.2007, 14:12

)

ListBox1.Selected[ListBox1.ItemAtPos(ListBox1.ScreenToClient(Mouse.CursorPos), True)] := True;

А как снять выделение?

ЗЫ. Я тоже так пробовал, но успехов именно в снятии выделения небыло.

Автор: MetalFan 13.4.2007, 15:03

повторю вопрос: зачем изврат с SetWindowLong?
если есть TControl.WindowProc....
+ мой вариант решения:

Код


procedure TForm1.lbxMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  lIdx: Integer;
begin
  if Button = mbRight then
  begin
    lIdx := lbx.ItemAtPos( Point( X,Y), True );
    if lIdx <> -1 then
      lbx.Selected[lIdx] := not lbx.Selected[lIdx];
  end;
end;

выделяет элементы по правой кнопке

Автор: Sunvas 13.4.2007, 15:39

Цитата(MetalFan @ 13.4.2007, 15:03

)

выделяет элементы по правой кнопке

А ты по левой попробуй сделать.

Цитата(MetalFan @ 13.4.2007, 15:03

)

повторю вопрос: зачем изврат с SetWindowLong?

У меня с левой не получилось, поэтому пришлось применть изврат.

Автор: MetalFan 13.4.2007, 16:02

Цитата(Sunvas @ 13.4.2007, 15:39

)

А ты по левой попробуй сделать.

гхм... тогда еще проще... MultiSelect = true, ExtendedSelect = false....

Автор: Sunvas 13.4.2007, 17:00

Цитата(MetalFan @ 13.4.2007, 16:02

)

гхм... тогда еще проще... MultiSelect = true, ExtendedSelect = false....

Вау. Ну, а чтобы можно было перетаскиванием выделять?

Автор: MetalFan 13.4.2007, 17:36

Цитата(Sunvas @ 13.4.2007, 17:00

)

Вау. Ну, а чтобы можно было перетаскиванием выделять?

мсье извращенец? )))

Код


var
  gLastIdx: Integer = -1;
procedure TForm1.lbxMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  lIdx: Integer;
begin
  if ssLeft in Shift then
  begin
    lIdx := lbx.ItemAtPos( Point(X,Y), True );
    if (lIdx <> -1) and ( lIdx <> gLastIdx ) then
    begin
      lbx.Selected[lIdx] := not lbx.Selected[lIdx];
      gLastIdx := lIdx;
    end;
  end;
end;

procedure TForm1.lbxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  lIdx: Integer;
begin
  if ssLeft in Shift then
  begin
    gLastIdx := lbx.ItemAtPos( Point(X,Y), True )
  end;
end;