Текущий архив: 2008.07.27;
Скачать: CL | DM;
Вниз
Реакция на нажатие правой кнопки мыши Найти похожие ветки
← →
Fobiya (2008-06-26 13:57) [0]Здраствуйте.
Подскажите пожалуйста, как реализовать реакцию кнопки(button,bitbtn)
на нажатие правой кнопки мыши, то есть процедуру эдентичную
procedure ButtonClick(Sender: TObject); Чтобы на нажатие левой кнопки выполнялось одно действие, на нажатие правой другое, на дабл-клик еще какое-нибудь.
← →
clickmaker © (2008-06-26 13:58) [1]OnMouseDown?
"эдентичную" начинается с "и"
← →
Al (2008-06-26 14:05) [2]OnMouseDown реагирует на любое нажатие на мыши левая, правая, скрол.
Как сделать чтоб различал?
← →
Palladin © (2008-06-26 14:08) [3]а у самого"то мыслей никаких нет?
← →
TUserClass © (2008-06-26 14:11) [4]
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Case Button of
mbLeft : ShowMessage ("Левая кнока");
mbRight : ShowMessage ("Правая кнока");
end;
end;
← →
korneley © (2008-06-26 14:14) [5]
mbMiddle : ShowMessage ("А вот и средняя!");
← →
Al (2008-06-26 14:33) [6]Большое спасибо!!!
Хотелось бы еще узнать один вопрос:
Например есть две кнопки, после нажатия первой переходим ко второй
button2.SetFocus. Так вот, как заставить еще и курсор мыши "приклеится" к этой второй кнопке?
← →
TUserClass © (2008-06-26 14:38) [7]Всмысле "приклеиться"? Если перевести курсор, то :
procedure TForm1.Button1Click(Sender: TObject);
var
Rect : TRect;
begin
GetWindowRect (Button2.Handle, Rect);
SetCursorPos (Rect.Left + Round (Button2.Width/2), Rect.Top + Round (Button2.Height/2));
end;
Страницы: 1 вся ветка
Текущий архив: 2008.07.27;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.017 c
