Помощь - Поиск - Пользователи - Календарь
Полная версия: Нажатие кнопки мыши
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Ада и другие языки
Fanat
Как описать событие которое должно рабатывать при нажатии кнопки мыши в окне формы?..
Если написать через OnMouseDown на форме то не отрабатывает при нажатии на любую кнопку...
а в задумке должно...и событие для каждого компонента отдельно писать не хочеться...(да и не нужно наверно)..
volvo
Не понял, а что ты хочешь чтоб делалось при нажатии на кнопку на форме? И фиксировалось событие нажатия (где-то централизованно) И нажималась кнопка?
Fanat
Цитата(volvo @ 26.12.2007 20:51) *

Не понял, а что ты хочешь чтоб делалось при нажатии на кнопку на форме? И фиксировалось событие нажатия (где-то централизованно) И нажималась кнопка?


Да, именно так...
volvo
Используй ApplicationEvents:
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{
switch(Msg.message) {
case WM_LBUTTONDOWN:
{
Memo1->Lines->Add("Left mouse button pressed...");
break;
}
}
}

(Handled не установлен в true - сообщение "пропускается" дальше)...
Fanat
Создал новый проект...вставил туда эту функцию...описал её в TForm1...сохранил...щелкую...ничего не происходит...(Handled = false, нашёл в примере....на так тоже ничего не происхожит)... nea.gif
volvo
Ты ApplicationEvents положил на форму? И что, ничего не появляется в Memo?
Fanat
Цитата(volvo @ 26.12.2007 22:01) *

Ты ApplicationEvents положил на форму? И что, ничего не появляется в Memo?


Во...спасибо...не положил...да и ещё надо была два раза по нему чтобы он её признал..
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.