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

Мастера, подскажите как сделать...   Найти похожие ветки 

← →
Интересующийся...   (2002-11-17 11:43) [0]

сделать чтобы при клике правой кнопкой мыши, например, на ListBox происходило выделение ч-ного итема маркером... ну как это происходит при нажатии левой кнопкой...

Большое спасибо...

---

← →
LongIsland ©   (2002-11-17 12:06) [1]

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Msg: TMsg;
begin
if Button = mbRight then
begin
SendMessage(ListBox1.Handle, WM_LBUTTONDOWN, Msg.wParam, Msg.lParam);
end;
end;

---

← →
Интересующийся...   (2002-11-17 12:38) [2]

А можно ли выделить синим маркером... ???
Если это очень муторно, тогда не надо...

---

← →
LongIsland ©   (2002-11-17 12:40) [3]

Угу... Настойки вынь поменять:-)

---

← →
Интересующийся...   (2002-11-17 12:52) [4]

Сейчас проверил потосчнее...
Процедура не подходит...
Она всего лишь осуществляет как бы передачу фокуса... но это не дало того что надо...
при нажатии левой кнопки итем выделяется синим маркером, т.е. на самом деле выделяется, ваша команда не выделяет, а простонаводит рамочку на первый итем и если ткнуть правой мышью на 3 ий итем, то ничего не изменится...
мне это надо для того чтобы на определенный итем выпадало попап меню....
может есть другой способ???

---

← →
Foxtrot ©   (2002-11-17 13:18) [5]

Вот так должно работать 100%. Правда тогда (без спец доработки)не отличить левый клик от правого.

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
end;

procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

---

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

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



Память: 0.46 MB
Время: 0.01 c