Сочетание клавиш в программе

@hardik · Регистрация: 14.10.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте уважаемые знатоки Delphi!
Помогите пожалуйста осуществить следующее:
При наборе слова xaker в программе(ни в компоненте а именно в самой прогамме при нажатии на клавиши клавиатуры) чтобы у меня выходило сообщение к примеру 'активировано'.
Меня интересует как можно это описать.
Ну как в GTA San Andreas там читы же есть, вот я усебя в программе тоже хочу такое сделать.
заранее спасибо.

Добавлено через 4 часа 28 минут
Прошу помогите, если чето не понятно спрашивайте.

@саша40 · 16.11.2012, 21:04

Лови сообщения с клавиатуры.

@hardik · 16.11.2012, 21:21 **[ТС]**

Каким образом? код не набросаешь?)

@FIL · 16.11.2012, 21:24

Delphi

............
var
  Form1: TForm1;
  i: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  'x': if i = 0 then inc(i);
  'a': if i = 1 then inc(i);
  'k': if i = 2 then inc(i);
  'e': if i = 3 then inc(i);
  'r': ShowMessage('xaker');
  else i := 0;
  end;
end;
.............

@саша40 · 16.11.2012, 21:30

Сообщение от hardik

Каким образом? код не набросаешь?)

Ну конечноже по образу и подобию Drag&Drop:

Delphi

1	procedure WMKeyDown(Var Msg:TWMKeyDown); message WM_KeyDown; //сообщения с клавиатуры

Добавь модуль ShellAPI в uses.
Код процедуры пиши по условию:

Delphi

if Msg.CharCode=...{Код клавиши} then
begin
//что-то произошло.
end;

Добавлено через 28 секунд

Сообщение от hardik

Ну как в GTA San Andreas там читы же есть, вот я усебя в программе тоже хочу такое сделать.

Не по теме:

Только не говори, что это чит?

@hardik · 16.11.2012, 21:43 **[ТС]**

Сообщение от gorfil

Delphi

............
var
  Form1: TForm1;
  i: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  'x': if i = 0 then inc(i);
  'a': if i = 1 then inc(i);
  'k': if i = 2 then inc(i);
  'e': if i = 3 then inc(i);
  'r': ShowMessage('xaker');
  else i := 0;
  end;
end;
.............

Данная процедура не работает.

@FIL · 16.11.2012, 21:45

Я проверял, все работает. Ты куда ее вставил?

@hardik · 16.11.2012, 21:49 **[ТС]**

Сообщение от саша40

Ну конечноже по образу и подобию Drag&Drop:

Delphi

1	procedure WMKeyDown(Var Msg:TWMKeyDown); message WM_KeyDown; //сообщения с клавиатуры

Добавь модуль ShellAPI в uses.
Код процедуры пиши по условию:

Delphi

if Msg.CharCode=...{Код клавиши} then
begin
//что-то произошло.
end;

Добавлено через 28 секунд

Не по теме:

Только не говори, что это чит?

А не могли бы вы расписать прям как должно быть со словом xaker.
Это не читы

У меня есть тест, ну так вот хочу при нажатии определенного кода чтобы показывались все верные ответы) Поэтому напишите код пожалуйста)

Добавлено через 1 минуту

Сообщение от gorfil

Я проверял, все работает. Ты куда ее вставил?

в form1.keypress
вот мой код

Delphi

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  'x': if i = 0 then inc(i);
  'a': if i = 1 then inc(i);
  'k': if i = 2 then inc(i);
  'e': if i = 3 then inc(i);
  'r': ShowMessage('xaker');
  else i := 0;
  end;
end;

i описана глобально как integer

@~~Скромный_Чел~~ · 16.11.2012, 21:57

Достаточно переключить на латинскую раскладку и нажать 'r'

@DaMortum · 16.11.2012, 22:04

Достаточно головой подумать.

Delphi

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  'x': if i = 0 then inc(i);
  'a': if i = 1 then inc(i);
  'k': if i = 2 then inc(i);
  'e': if i = 3 then inc(i);
  'r': if i = 4 then begin
         ShowMessage('xaker');
         i := 0;
       end
  else i := 0;
  end;
end;

@hardik · 16.11.2012, 22:05 **[ТС]**

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

@FIL · 16.11.2012, 22:12

Походу мой вариант и вариант с перехватом работают только на пустой форме. Если есть компоненты, то нажатия адресуются им напрямую.
В моем варианте можно TForm1.FormKeyPress назначить каждому компоненту, но это кривое решение.

@~~Скромный_Чел~~ · 16.11.2012, 22:21

Сообщение от DaMortum

Достаточно головой подумать.

Delphi

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  'x': if i = 0 then inc(i);
  'a': if i = 1 then inc(i);
  'k': if i = 2 then inc(i);
  'e': if i = 3 then inc(i);
  'r': if i = 4 then begin
         ShowMessage('xaker');
         i := 0;
       end
  else i := 0;
  end;
end;

xxxaker
xaaaker
xxxxaaaaakkkeeerrr
...
xakkkkkkeeeerr
я так понимаю это всё одно слово xaker

@FIL · 16.11.2012, 22:25

Delphi

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  'x': if i = 0 then inc(i) else i := 0;
  'a': if i = 1 then inc(i) else i := 0;
  'k': if i = 2 then inc(i) else i := 0;
  'e': if i = 3 then inc(i) else i := 0;
  'r': if i = 4 then begin
         ShowMessage('xaker');
         i := 0;
       end
  else i := 0;
  end;
end;

Но вопрос сейчас не в этом.

@hardik · 16.11.2012, 22:26 **[ТС]**

Сообщение от gorfil

Походу мой вариант и вариант с перехватом работают только на пустой форме. Если есть компоненты, то нажатия адресуются им напрямую.
В моем варианте можно TForm1.FormKeyPress назначить каждому компоненту, но это кривое решение.

Именно(
А других вариантов нет?)_

@FIL · 16.11.2012, 22:36

Вот полностью рабочий вариант:

Delphi

.....
type
  TForm1 = class(TForm)
.....
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
    procedure FormCreate(Sender: TObject);
....
var
  Form1: TForm1;
  i: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_Char then
    begin
      case Chr(Msg.wParam) of
      'x': if i = 0 then inc(i) else i := 0;
      'a': if i = 1 then inc(i) else i := 0;
      'k': if i = 2 then inc(i) else i := 0;
      'e': if i = 3 then inc(i) else i := 0;
      'r': if i = 4 then begin
         ShowMessage('xaker');
         i := 0;
       end
       else i := 0;
      end;
    end;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessage; // Ïåðåõâàò÷èê ñîáûòèé
end;
 
end.

@hardik · 16.11.2012, 23:12 **[ТС]**

Сообщение от gorfil

Вот полностью рабочий вариант:

Delphi

.....
type
  TForm1 = class(TForm)
.....
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
    procedure FormCreate(Sender: TObject);
....
var
  Form1: TForm1;
  i: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_Char then
    begin
      case Chr(Msg.wParam) of
      'x': if i = 0 then inc(i) else i := 0;
      'a': if i = 1 then inc(i) else i := 0;
      'k': if i = 2 then inc(i) else i := 0;
      'e': if i = 3 then inc(i) else i := 0;
      'r': if i = 4 then begin
         ShowMessage('xaker');
         i := 0;
       end
       else i := 0;
      end;
    end;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessage; // Ïåðåõâàò÷èê ñîáûòèé
end;
 
end.

Именно это я и имел ввиду, а не подскажете источник(откуда взято это)?)
Спасибо!)

@FIL · 16.11.2012, 23:19

У Application есть событие OnMessage которому можно назначить свою процедуру обработки.
Остальное из головы.

@antikiler_ · 16.11.2012, 23:33

Сообщение от gorfil

У Application есть событие OnMessage которому можно назначить свою процедуру обработки.

Для этого у формы есть специальное событие OnShortCut

Delphi

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
 if msg.Result = 0 then exit;
 
    case Chr(Msg.CharCode) of
      'X':
        if int = 0 then
          inc(int)
        else
          int := 0;
      'A':
        if int = 1 then
          inc(int)
        else
          int := 0;
      'K':
        if int = 2 then
          inc(int)
        else
          int := 0;
      'E':
        if int = 3 then
          inc(int)
        else
          int := 0;
      'R':
        if int = 4 then
          begin
            ShowMessage('xaker');
            int := 0;
          end
        else
          int := 0;
    end;
 
end;

@hardik · 16.11.2012, 23:35 **[ТС]**

Ясно, теперь след. проблема у меня есть 2 формы
1 нужная
2 титульник
ну так вот как запретить ввод этого кода на титульнике?
т.е отключить onmessage на form2 чтоли и как?

@hardik 1 / 1 / 0 Регистрация: 14.10.2012 Сообщений: 95
	16.11.2012, 22:26 [ТС]	15
	Сообщение от gorfil Походу мой вариант и вариант с перехватом работают только на пустой форме. Если есть компоненты, то нажатия адресуются им напрямую. В моем варианте можно TForm1.FormKeyPress назначить каждому компоненту, но это кривое решение. Именно( А других вариантов нет?)_ 0

@FIL Модератор 3491 / 2614 / 741 Регистрация: 19.09.2012 Сообщений: 7,976
	16.11.2012, 23:19	18
	У Application есть событие OnMessage которому можно назначить свою процедуру обработки. Остальное из головы. 0

@hardik 1 / 1 / 0 Регистрация: 14.10.2012 Сообщений: 95
		1
	Сочетание клавиш в программе 16.11.2012, 21:01. Показов 3565. Ответов 40 Метки нет (Все метки) Здравствуйте уважаемые знатоки Delphi! Помогите пожалуйста осуществить следующее: При наборе слова xaker в программе(ни в компоненте а именно в самой прогамме при нажатии на клавиши клавиатуры) чтобы у меня выходило сообщение к примеру 'активировано'. Меня интересует как можно это описать. Ну как в GTA San Andreas там читы же есть, вот я усебя в программе тоже хочу такое сделать. заранее спасибо. Добавлено через 4 часа 28 минут Прошу помогите, если чето не понятно спрашивайте. 0

@саша40 157 / 300 / 47 Регистрация: 14.08.2012 Сообщений: 2,578
	16.11.2012, 21:04	2
	Лови сообщения с клавиатуры. 0

@hardik 1 / 1 / 0 Регистрация: 14.10.2012 Сообщений: 95
	16.11.2012, 21:21 [ТС]	3
	Каким образом? код не набросаешь?) 0

@FIL Модератор 3491 / 2614 / 741 Регистрация: 19.09.2012 Сообщений: 7,976
	16.11.2012, 21:45	7
	Я проверял, все работает. Ты куда ее вставил? 0

@~~Скромный_Чел~~ Заблокирован
	16.11.2012, 21:57	9
	Достаточно переключить на латинскую раскладку и нажать 'r' 0

@hardik 1 / 1 / 0 Регистрация: 14.10.2012 Сообщений: 95
	16.11.2012, 22:05 [ТС]	11
	Не понимаю, создал новый проект там все робит, а вот у меня в проекте работать не хочет( 0

@FIL Модератор 3491 / 2614 / 741 Регистрация: 19.09.2012 Сообщений: 7,976
	16.11.2012, 22:12	12
	Походу мой вариант и вариант с перехватом работают только на пустой форме. Если есть компоненты, то нажатия адресуются им напрямую. В моем варианте можно TForm1.FormKeyPress назначить каждому компоненту, но это кривое решение. 0

@hardik 1 / 1 / 0 Регистрация: 14.10.2012 Сообщений: 95
	16.11.2012, 23:35 [ТС]	20
	Ясно, теперь след. проблема у меня есть 2 формы 1 нужная 2 титульник ну так вот как запретить ввод этого кода на титульнике? т.е отключить onmessage на form2 чтоли и как? 0