Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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]

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



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

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

Наверх





Память: 0.45 MB
Время: 0.003 c
14-57218
Knyaz17
2001-12-13 10:38
2002.02.18
Чем отличается MS-SQL 7.0 и MS-SQL 2000?


1-57152
RUS1
2002-02-04 10:35
2002.02.18
Господа нужен компонент для создания ярлыков!!! Посоветуйте чегонибуть!!!


1-57053
Vitek
2002-02-01 13:53
2002.02.18
Шрифты


1-57080
MAN-IN-RED
2002-02-01 19:36
2002.02.18
Как посмотреть нажата ли левая кнопка мыши?


1-57051
Tadeush
2002-02-04 12:54
2002.02.18
цвет





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский