Вниз
Скачать: CL | DM;

Обработка события   Найти похожие ветки 

 
guitarist   (2006-01-25 21:22) [0]

Как сделать обработку некого события. Например я хочу написать "Ура", когда пользователь двинет мышку. Как это сделать, не писать же все это в цикле. По-моему, это надо делать ловушками. Если я несу чушь не кидайте в меня тапками, я не хотел. Желательно пример с пояснениями.
Спасибо за потраченное на меня время


 
Desdechado ©   (2006-01-25 21:55) [1]

куча событий возникает у разных компонентов на форме и у самой формы, их и обработай (вторая закладка в ObjectInspector)

> хочу написать "Ура", когда пользователь двинет мышку
написать где? и сколько раз будет, если юзер постоянно мышой елозит?


 
guitarist   (2006-01-27 15:34) [2]

Да хоть на label. Ну вместо мышки пусть будет "Ура", когда он нажмет две какие-нибудь клавиши одновременно.


 
Leonid Troyanovsky ©   (2006-01-27 16:18) [3]


> guitarist   (27.01.06 15:34) [2]
> Да хоть на label. Ну вместо мышки пусть будет "Ура", когда
> он нажмет две какие-нибудь клавиши одновременно.


А чего ограничивать оптимизм искомой программы двумя клавишами?
Пусть радуется любому деянию юзера, скажем, в Application.OnMesage:

procedure TForm1.AppMessaget (var Msg: TMsg; var Handled: Boolean);
begin
 case Msg.message of
   WM_KEYFIRST..WM_KEYLAST,
   WM_MOUSEFIRST..WM_MOUSELAST: {Label.Caption := "ура!"};
 end;
end;

--
Regards, LVT.


 
guitarist   (2006-01-27 20:34) [4]

Так, а теперь обьясните мне, пожалуйста, как WM_... объявлять (например событие нажатия "CTRL+A" или движение мыши.
Пождравляю с днем снятием блокады!



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c
15-1137501913
Yegorchic
2006-01-17 15:45
2006.02.12
Сотовый с ИК-портом...


2-1137854907
Out
2006-01-21 17:48
2006.02.12
MIDAS


2-1138121355
Ell
2006-01-24 19:49
2006.02.12
Как уменьшить размер программы?


1-1136895142
TAN_K
2006-01-10 15:12
2006.02.12
Печать текстового файла DOS на лазерный принтер средствами Delpfi


8-1125464223
Rentgen
2005-08-31 08:57
2006.02.12
Как заставить компьютер послушать?




   Наверх