Нажатие кнопки мыши, Builder 6.0 Опции

[Fanat]

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

[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, нашёл в примере....на так тоже ничего не происхожит)...