Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.18;
Скачать: CL | DM;

Вниз

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

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.02.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.006 c
7-57235
Русский
2001-11-12 14:22
2002.02.18
Поделитесь кодом а :)))


14-57218
Knyaz17
2001-12-13 10:38
2002.02.18
Чем отличается MS-SQL 7.0 и MS-SQL 2000?


1-57102
ev
2002-01-31 15:18
2002.02.18
как нарисовать кнопку нажатой?


6-57179
D. Aseev
2001-11-26 00:17
2002.02.18
Можно ли заставить NMSMTP кодировать мессаги в koi-8r или какие самые хорошие компоненты для этого есть(с русскими кодир. работать)?


1-57057
Елена
2002-02-02 09:45
2002.02.18
StringGrid + ComboBox