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

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


Информационный Канал Subscribe.Ru

Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 10.10.04 09:18

Лучшее из нашего 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 wu rde 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|
  • Как электрикой правильно выставить значение на LPT
    Здраствуйте! Помогите с такой проблемой: как писать на LPT порт я нашел/сделал :-), а вот как на LPT выставлять ...
  • Проблема с закладками в TabControl
    Всё никак не могу понять: как же создать НЕ программно закладки в TabControl? В TabControl от VCL это делалось через ...
  • mousewheel
    У меня мышь с восьмью кнопками.Как в делфи их можно опознать? Как сделать опознавание из любого приложения?
  • Использование TNMMsg и TNMMSGServ
    Есть TNMMSGServ и TNMMsg. При посылке первого сообщения все нормально, но потом возникает ошибка Already connected. Я ...
  • Программа общения с COM портом
    Пожалуйста, обьясните подробно как и с помощью каких инструментов и команд можно написать программу, посылающую сигналы ...
  • Копирование таблиц между базами Access
    Каким образом можно скопировать таблицу из одной базы Access в другую ? (встроенными средствами)
  • Player
    Наполовину дописал свой плеер (поддержка плейлистов, drag&drop, видео и аудио, скины и пр.). Посмотрите, кому не лень ...
У нас большой выбор статей   |x|
Программирование Интернет приложений в Borland Kylix. Часть II
Эта статья продолжает серию, посвященную программированию Интернет-приложений в Borland Kylix. На этот раз речь пойдет о CGI-приложениях и модулях сервера Apache.
Новинки книжного рынка   |x|
Компьютерная графика. Энциклопедия
Книга адресована тем, кто хотел бы расширить свои профессиональные возможности в области компьютерной графики, в первую очередь: дизайнерам, иллюстраторам, художникам, разработчикам web-сайтов, а также всем желающим поближе познакомиться с увлекательным миром компьютерной графики и анимации. Прочитав ее, вы будете легко ориентироваться в разнообразии современных графических программ, овладеете популярными редакторами для создания растровой и векторной графики, познакомитесь с основами дизайна. Книга снабжена большим количеством примеров, иллюстрирующих работу различных графических программ, ее можно использовать и как учебник, и как подробное справочное руководство.
Автор: Рейнбоу В.
Опрос населения :)
Образование программиста?
»»» Высшее
»»» Незаконченное высшее
»»» Среднее специальное
»»» Среднее
Для души

Хокку дня
Как же это, друзья?
Человек глядит на вишни в цвету,
А на поясе длинный меч!

Афоризмы
Глупо ломиться в открытую дверь, когда рядом полно закрытых.

Фраза дня
Если лечиться по справочнику, то рискуешь умереть от опечатки

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

И на закуску коротенький анекдот
ОБЪЯВЛЕНИЕ: "Таксисту, нашедшему в своей машине документы с грифом "СОВЕРШЕННО СЕКРЕТНО", предлагается застрелиться самому..."

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


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

Добро пожаловать на сайт -= Мастера DELPHI =- 

http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.mdelphi
Отписаться

В избранное