Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Как посмотреть нажата ли левая кнопка мыши? 


MAN-IN-RED   (2002-02-01 19:36) [0]

Как посмотреть нажата ли левая кнопка мыши?

If Кнопочка мышки нажата Then
Begin
...
end
Помогите плиз, очень надо, заранее благодарен!



Фэ   (2002-02-01 23:02) [1]

На событие OnMouseDown

procedure TForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
ShowMessage("Left button click !");
end;



MAN-IN-RED   (2002-02-01 23:23) [2]

Да но это ж только на форме а мне надо вообще, что бы работало даже если мышь нажата на другом компоненте без обработки события OnMouseDown! Мне надо отловить нажатие левой кнопки мыши!!!
Пожалуйста помогите!!!
Заранее благодарен!
Очень срочно надо....



Фэ   (2002-02-01 23:39) [3]

..
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-02 01:32) [4]

Спасибо, працует как часики!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
1-57062           nikols                2002-02-01 16:34  2002.02.18  
Какой тип у редактора свойства Expression компонента TQRExpr?


14-57199          Knight                2001-12-28 11:58  2002.02.18  
Всех с праздниками, вопросик несколько хакерский но просто срочно понадобилось!!!


4-57243           Voituk                2001-12-19 15:49  2002.02.18  
Как из моей программы закрыть все работающие приложения?


6-57175           TonnyS                2001-11-27 13:43  2002.02.18  
Можно ли использовать бесплатные Socks-серверы для связи с помощью TNMmsg (например)


14-57215          gek                   2001-12-29 13:19  2002.02.18  
Всех с НОВЫМ ГОДОМ!!!