| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как посмотреть нажата ли левая кнопка мыши?
MAN-IN-RED © (2002-02-01 19:36:00)Как посмотреть нажата ли левая кнопка мыши?
If Кнопочка мышки нажата Then
Begin
...
end
Помогите плиз, очень надо, заранее благодарен!
MAN-IN-RED (2002-02-02 01:32:00) [1]Спасибо, працует как часики!
Фэ (2002-02-01 23:39:00) [2]..
private
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
..
procedure TForm.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage; // own proc
end;
procedure TForm.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_LBUTTONDOWN then ShowMessage("Left button click !");
end;
MAN-IN-RED (2002-02-01 23:23:00) [3]Да но это ж только на форме а мне надо вообще, что бы работало даже если мышь нажата на другом компоненте без обработки события OnMouseDown! Мне надо отловить нажатие левой кнопки мыши!!!
Пожалуйста помогите!!!
Заранее благодарен!
Очень срочно надо....
Фэ (2002-02-01 23:02:00) [4]На событие OnMouseDown
procedure TForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
ShowMessage("Left button click !");
end;
| |
