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

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

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

Автор: SlaUr 22.4.2004, 12:51

Как мне сделать чтобы при нажатии правой кнопки мыши менялось значение itemindex у listboxа,на то по которому я кликнул (правой кнопкой мыши).Вроде как события OnClickRight нету . Как это вообще сделать.

Автор: Maverick 22.4.2004, 13:21

Анализировать надо события

procedure TfmMain.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

end;

procedure TfmMain.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

Параметр Button содержит какую кнопу мыши нажали...
Его тип type TMouseButton = (mbLeft, mbRight, mbMiddle);

=> if Button = mbRight then ShowMessage('vot');

Автор: Cashey 22.4.2004, 13:22

В событии onMouseUp пишишь условие

Код

if (Button = mbRight)

и под ним что тебе надо изменить.

Автор: SlaUr 22.4.2004, 14:18

Всем спасибо (информации вроде достаточно , чтобы попробовать)

Автор: SlaUr 23.4.2004, 12:21

Опять проблема делаю так :

Код

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbRight) then ListBox1.ItemIndex:=Y div 15;

end;

Работает очень коряво - не всегда селектируется тот items на котором я стою и нажимаю правую кнопку мыши .Этот вариант вообще неправильный - если изменить размер шрифта то делить нужно будет не на 15.

Как сделать правильно?

Автор: z-END 23.4.2004, 13:48

SlaUr я бы тебе посоветовал все-таки использовать такой вариант:
Event OnMouseUp не использовать, а работать с OnMouseMove вот в таком виде:

Код

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
 if (ssRight in Shift) then ListBox1.ItemIndex := ListBox1.ItemAtPos (Point (X,Y),false);
end;

Автор: SlaUr 26.4.2004, 08:38

nJIaKca.spb Спасибо , все получилось вот только с OnMouseMove что-то ничего не вышло (компилятор ругается на код) зато получилось с OnMouseDown - вообщем то работает и меня устраивает как работает (С OnMouseUp тоже не вышло-у меня еще есть popupmenu) .