Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Октябрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 18.10.02 09:04

Лучшее из нашего FAQ   |x|
Как назначить горячие клавиши (shortcuts), чтобы они были доступны даже если сейчас активна другая программа (как это делает аська).
Попробуй этот код:

 type 
   TForm1 = class(TForm) 
     procedure FormCreate(Sender: TObject); 
     procedure FormDestroy(Sender: TObject); 
   protected 
     procedure hotykey(var msg:TMessage); message WM_HOTKEY; 
   end; 

 var 
   Form1: TForm1; 
   id,id2:Integer; 

 implementation 

 {$R *.DFM} 


 procedure TForm1.hotykey(var msg:TMessage); 
 begin 
   if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=81) then 
   begin 
     ShowMessage('Ctrl + Q wurde gedrьckt !'); 
   end; 

   if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=82)
then 
   begin 
     ShowMessage('Ctrl + R w!
urde gedrьckt !'); 
   end; 
 end; 


 procedure TForm1.FormCreate(Sender: TObject); 
 begin 
   id:=GlobalAddAtom('hotkey'); 
   RegisterHotKey(handle,id,mod_control,81); 

   id2:=GlobalAddAtom('hotkey2'); 
   RegisterHotKey(handle,id2,mod_control,82); 
 end; 

 procedure TForm1.FormDestroy(Sender: TObject); 
 begin 
   UnRegisterHotKey(handle,id); 
   UnRegisterHotKey(handle,id2); 
 end;


Комментарий от Евгения Гаечкина (johnnycrisjoe@mail.ru)
при смене стиля окна с fsStayOnTop на fsNormal и обратно(предполагаю, что так происходит при смене стиля на любой), у него меняется handle, и соответственно сообщения WM_HOTKEY перестают поступать. Метод реанимации, в принципе прост:
UnRegisterHotKey со старым handle
смена стиля окна
RegisterHotKey - с новым handle
Метод не еди! нственный, но поможет.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Получение и установка видеорежимов в Windows
При разработке приложений, которые затем будут использоваться на большом числе различных ПК очень полезно иметь возможность не только получения информации о текущем видеорежиме, но и возможность получить все доступные видеорежимы для данного ПК. Еще одна область, где используется переключение видеорежимов при написании игр без использования DirectX.
Новинки книжного рынка   |x|
Shareware : профессиональная разработка и продвижение программ
Рассматриваются особенности создания условно-бесплатных программ, приводятся рекомендации по разработке интерфейса и оформлению документации, обсуждаются теоретические и практические вопросы проектирования, рекламы, маркетинга и технической поддержки создаваемого программного продукта. Книга содержит примеры удачной разработки и реализации программ из мировой и российской практики. Множество иллюстраций дает возможность более наглядно представить объем и качество работы, необходимой для создания программ на профессиональном уровне.
Автор: Жарков С.
Другие сайты о DELPHI   |x|
LMD-Tools SE
Более 100 компонентов абсолютно бесплатно!
напр.: LMDLabel с ротацией текста и 3D эффектом,
LMDTTrayIcon,LMDTGlobalHotKey,LMDOneInstance
» Оценка сайта: 2
Опрос населения :)
Какую ОС вы используете _в_основном_ при написании програм для Win32
»»» Win2k
»»» Win98
»»» WinXP
»»» WinNT
»»» WinMe
»»» Win95
»»» Ни одну из перечисленных
»»» Я не пишу под Win32
»»» Не знаю
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.

Для души

Хокку дня
Сон
репетиция
смерти.

Афоризмы
Истина освещает, но греют именно деньги...

Фраза дня
Я женщина честная, доверилась компьютеру, а он меня обманул

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В гроде Литтл Рок в Арканзасе (США) запрещается выгуливать коров на главной улице после часа дня в воскресенье .
В Нью Хемпшире (США) считается преступлением вписыватся в отель под чужим именем.

И на закуску коротенький анекдот
Приходит Вовочка к маме с папой и говорит:
- Вот я зимой родился. Теперь объясните откуда я взялся, аисты не летают, капуста не растет...

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=4921

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное