на нажатие правой кнопки мыши также как на левой

← →
Vin (2003-10-09 10:24) [0]

Как заставить объект(кнопку например) реагировать на нажатие правой кнопки мыши также как на левую

← →
TUser (2003-10-09 10:27) [1]

procedure OnMouseDown(...Button:TMouseButton...) begin if Button=mbRight then button:=mbLeft; //или ... then Nechto1Click(...); end;
наверное, так

← →
Vin (2003-10-09 10:43) [2]

К сожалению не прокатывает, ничто не изменилось

← →
webpauk (2003-10-09 10:47) [3]

if Button=mbRight then Button1Click(Sender);

← →
pasha_676 (2003-10-09 10:49) [4]

А что и так не пропирает

procedure OnMouseDown(...Button:TMouseButton...)
begin
if Button=mbRight or button:=mbLeft then
begin
//вся фигня
end;
end;

← →
Семен Сорокин (2003-10-09 10:51) [5]

Как заставить объект(кнопку например) реагировать на нажатие правой кнопки мыши также как на левую
подробнее можно? что необходимо увидеть при нажатии на правую кнопку мыши?

← →
webpauk (2003-10-09 10:51) [6]

Интересно, а как сделать, чтобы кнопка не только выполняла действие по нажатию правой клавиши, но и НАЖИМАЛАСЬ?

← →
pasha_676 (2003-10-09 10:57) [7]

> но и НАЖИМАЛАСЬ?

Может послать мессагу?

← →
Radionov Alexey (2003-10-09 11:03) [8]

Подмена для всего приложения:

На форму кинь TApplicationEvents (панель Additional).
В его обработчике onMessage напиши

If Msg.message = wm_rbuttondown Then
Msg.message := wm_lbuttondown
Else
If Msg.message = wm_rbuttonup Then
Msg.message := wm_lbuttonup
Else
If Msg.message = WM_RBUTTONDBLCLK Then
Msg.message := WM_lBUTTONDBLCLK

← →
Vin (2003-10-10 07:05) [9]

Спасибо Radionov Alexey, это подчти то что нужно.
Но сдесь для всего приложения , а хотелось бы тока для определённого обЪекта

← →
Vin (2003-10-10 07:16) [10]

Семен Сорокин проблема в следующем
Есть некий компонент , наз JVDBTreeView он соответствено при наступании левой кнопки мыши по определённой ветви переставляет курсор на определённую запись таблицы БД, а при наступании по ветви правой кнопкой вызывается для ветви меню, но дело в том , что курсор не переставляется и соответственно далее идёт обработка не с теми данными

← →
Radionov Alexey (2003-10-10 07:45) [11]

>Vin (10.10.03 07:16) [10]
>Но сдесь для всего приложения ,
>а хотелось бы тока для определённого обЪекта
Ну... немного думаем. И делаем для определенного объекта :))
Например, для Button5:

if Msg.hwnd = Button5.Handle then
If Msg.message = wm_rbuttondown Then
Msg.message := wm_lbuttondown
Else
If Msg.message = wm_rbuttonup Then
Msg.message := wm_lbuttonup
Else
If Msg.message = WM_RBUTTONDBLCLK Then
Msg.message := WM_lBUTTONDBLCLK

← →
Radionov Alexey (2003-10-10 07:49) [12]

>Vin (10.10.03 07:16)
В стандартном TreeView есть cв-во RightClickSelect.
Может, что-то подобное есть и в JVDBTreeView?

← →
Vin (2003-10-10 08:22) [13]

Оно то и здесь есть но дело в том , что при щелчке соответственно правой кнопкой он его выделяет но не встаёт на него тоже самое наблюдается и у стандартного TreeView

← →
Radionov Alexey (2003-10-10 08:33) [14]

И отказ от правой кнопки мышки спасет? тогда Radionov Alexey © (10.10.03 07:45)

Но я бы сделал что-то вроде этого:
Procedure TMainForm.TreeView1MouseDown(Sender: TObject; BUTTON: TMouseButton; Shift: TShiftState; X, Y: Integer); Var Node: TTreeNode; Begin If BUTTON = mbRight Then with TreeView1 do Selected := GetNodeAt(X, Y); End;

← →
Vin (2003-10-10 08:52) [15]

Radionov Alexey © не знаю даже как вас отблагодарить, это именно то что нужно, хотя я и сделал что то вроде>Radionov Alexey © (10.10.03 07:45),
но так то правильнее будет.

на нажатие правой кнопки мыши также как на левой Найти похожие ветки