Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 19.04.2007, 19:37   #1
micaell
Пользователь
 
Аватар для micaell
 
Регистрация: 01.12.2006
Сообщений: 32
Восклицание Реакция на сочетание клавишь

Задача такая:
При нажатии на кнопку форма программы становится невидима.
Нужно, чтобы при нажатии, например, на Alt+Ctrl+S форма снова становилась видима.
Заранее спасибо.
La iniciativa, control, respeto - las prioridades del vencedor.
micaell вне форума Ответить с цитированием
Старый 19.04.2007, 21:04   #2
Сильванович Михаил
Студент
Форумчанин
 
Регистрация: 10.11.2006
Сообщений: 196
По умолчанию

RegisterHotKey + обрабатываем WM_HOTKEY
Visita Interiorem Terrae Rectificando Operae Lapidem...
Сильванович Михаил вне форума Ответить с цитированием
Старый 19.04.2007, 23:30   #3
Shuraken
Форумчанин
 
Аватар для Shuraken
 
Регистрация: 16.04.2007
Сообщений: 298
По умолчанию

Цитата:
Сообщение от Сильванович Михаил Посмотреть сообщение
RegisterHotKey + обрабатываем WM_HOTKEY

Не прокатывает

Form1Activate
begin
RegisterHotKey(Form1.Handle, 123, MOD_ALT + MOD_SHIFT, Ord('S'));
end;

Form1Destroy
begin
UnRegisterHotKey(Form1.Handle, 123);
end;

procedure wmHotKey(var Message: TMessage);
begin
Visible := not Visible;
end;

Форма исчезает и все, больше не появляется. В процессах висит.
Shuraken вне форума Ответить с цитированием
Старый 20.04.2007, 02:13   #4
RSLoader
_________
Пользователь
 
Аватар для RSLoader
 
Регистрация: 27.03.2007
Сообщений: 69
По умолчанию

Код:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMHotKey(var Message: TMessage);
begin
  Form1.Show;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
  RegisterHotKey(Handle,123,MOD_ALT+MOD_CONTROL,$53);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Hide;
end;
end.
RSLoader вне форума Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сочетание клавиш CTRL+HOME valerij Microsoft Office Excel 2 18.08.2008 08:43
Нажатие клавишь Slash Общие вопросы Delphi 2 06.06.2008 08:15
сочетание h1 и nobr - не работает. Romanbl4 HTML и CSS 4 04.04.2008 20:19
Странная реакция drknn Помощь студентам 2 02.09.2007 15:51
Реакция IdTCPClient OrdJONY Работа с сетью в Delphi 3 30.08.2007 10:16