|
|
|
|
Наступает при нажатии одной из кнопок мыши в клиентской области компонента.
Синтаксис
| function OnMouseDown(
| | Sender, | | Button, | | Shift, | | X, | | Y
| | );
|
| Параметры
|
| Параметр
| Тип
| Описание
|
| Sender
| TComponent
| дескриптор визуального компонента
|
| Button
| Enum
| нажатая кнопка мыши (см. ниже)
|
| Shift
| Enumset
| состояние управляющих клавиш (см. ниже)
|
| X
| Number
| координата указателя мыши по оси абсцисс
|
| Y
| Number
| координата указателя мыши по оси ординат
|
|
| Параметр Shift
|
| Значение
| Описание
|
| ssAlt
| клавиша Alt
|
| ssCtrl
| клавиша Ctrl
|
| ssShift
| клавиша Shift
|
|
// Главная форма
frm=new TForm();
frm.Caption="JS+ - событие визуальных компонентов OnMouseDown";
frm.Width =450;
frm.Height=300;
frm.OnMouseDown=frm_MouseDown;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=" Кликните левой кнопкой мыши в области формы";
frm.ShowModal();
// Обработчик события OnMouseDown
function frm_MouseDown(frm,btn,sft,x,y)
{
var tmp_Str="Нажата ";
switch (btn) {
case mbLeft : tmp_Str+="левая"; break;
case mbRight : tmp_Str+="правая"; break;
case mbMiddle: tmp_Str+="средняя";
}
tmp_Str+=" кнопка мыши в точке: "+x+","+y;
if (sft & ssAlt)
tmp_Str+=" + Alt";
if (sft & ssCtrl)
tmp_Str+=" + Control";
if (sft & ssShift)
tmp_Str+=" + Shift";
alert(tmp_Str);
}
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
