VPF::Listbox - Форум программистов

SlaUr

Дата 22.4.2004, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

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

Maverick

Дата 22.4.2004, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1307
Регистрация: 22.9.2003
Где: Odessa, Ukraine

Репутация: 2
Всего: 10

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

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 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

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

Код

if (Button = mbRight)

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

--------------------

библия учит любить ближнего, а камасутра обучает как именно

SlaUr

Дата 22.4.2004, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

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

Это сообщение отредактировал(а) SlaUr - 22.4.2004, 14:19

SlaUr

Дата 23.4.2004, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

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

Код

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 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »