Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
1 / 1 / 2
Регистрация: 24.10.2012
Сообщений: 19
1

Как реализовать несколько горячих клавиш в программе?

30.10.2012, 02:53. Показов 2240. Ответов 2
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Это моя первая программа на Delphi, я нашёл в интернете способ использования назначаемой из хоткея горячей клавиши, всё прекрасно работало, попытался по аналогии сделать ещё несколько горячих клавиш, но прпограмма почему-то всегда считывает только одну, - объявленную последней.
Помогите разобраться!

Вот код программы:
Кликните здесь для просмотра всего текста
Delphi
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, clipbrd, ExtCtrls, CoolTrayIcon, Menus, ComCtrls, Inifiles, Registry, FileCtrl;
  // clipbrd нужен для использования операций с буфером обмена,
  // CoolTrayIcon - для свёртки программы в трей
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    Show1: TMenuItem;
    About1: TMenuItem;
    Exit1: TMenuItem;
    Memo1: TMemo;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label3: TLabel;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label8: TLabel;
    Edit3: TEdit;
    Button3: TButton;
    HotKey3: THotKey;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Edit4: TEdit;
    Button4: TButton;
    HotKey4: THotKey;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    HotKey1: THotKey;
    GroupBox4: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox2: TCheckBox;
    GroupBox5: TGroupBox;
    ComboBox1: TComboBox;
    Label2: TLabel;
    CheckBox5: TCheckBox;
    GroupBox6: TGroupBox;
    Label6: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    HotKey2: THotKey;
    Button1: TButton;
    OpenDialog2: TOpenDialog;
    procedure Button4Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Exit1Click(Sender: TObject);
    procedure Show1Click(Sender: TObject);
    procedure CoolTrayIcon1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure HotKey1Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CoolTrayIcon1Startup(Sender: TObject;
      var ShowMainForm: Boolean);
    procedure CoolTrayIcon1DblClick(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CoolTrayIcon1BalloonHintClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure HotKey2Change(Sender: TObject);
    procedure Restore(a:Integer);
    procedure ComboBox1Change(Sender: TObject);
    procedure HotKey4Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
  private
    procedure WMHotKey1(var Msg: TWMHotKey);
    procedure WMHotkey2(var msg: TWMHotkey);
    procedure WMHotkey3(var msg: TWMHotkey);
    message WM_HOTKEY;
 
  public
    function RegHotKey(HotKeyContacts:TShortCut; a:Integer):boolean;
    end;
var
  Form1: TForm1;
  FileName, FileName2, FileName3, SpecialFileName, Buffertext:string;
  IniFile:TIniFile;
  HK, HK2, HK3, SHK:integer;
 
implementation
 
uses Unit2, Unit3;
 
{$R *.dfm}
 
 
const
IniSourse='%MYDESKTOP%';
 
function TForm1.RegHotKey(HotKeyContacts:TShortCut; a:Integer):boolean;
var
 TheKey:Word;
 TheShiftState:TShiftState;
 Modifiers:Cardinal;
begin
 UnRegisterHotKey(Handle,a);  {
 HotKeyContacts:=HotKey;     }
 ShortCutToKey(HotKeyContacts, TheKey, TheShiftState);
 Modifiers:=0;
 if ssAlt in TheShiftState then Modifiers:=Modifiers or MOD_ALT;
 if ssShift in TheShiftState then Modifiers:=Modifiers or MOD_SHIFT;
 if ssCtrl in TheShiftState then Modifiers:=Modifiers or MOD_CONTROL;
 Result:=RegisterHotkey(Handle,a,Modifiers,TheKey);
end;
 
procedure TForm1.Button2Click(Sender: TObject);  //выбор пути к текстовому файлу
begin
OpenDialog1.InitialDir:='%USERPROFILE%\Desktop';
if OpenDialog1.Execute then   // Если пользователь ничего не выбрал, то OpenDialog1.Execute возвращает false, и последующий код не выполняется.
FileName:=OpenDialog1.FileName;
Edit1.Text:=Filename;
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  IniFile.WriteString('Files' , 'FileSourse', FileName);
end;
 
procedure TForm1.Button4Click(Sender: TObject);  //выбор пути к текстовому файлу
begin
OpenDialog1.InitialDir:='%USERPROFILE%\Desktop';
if OpenDialog1.Execute then   // Если пользователь ничего не выбрал, то OpenDialog1.Execute возвращает false, и последующий код не выполняется.
FileName2:=OpenDialog1.FileName;
Edit4.Text:=Filename2;
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  IniFile.WriteString('Files' , 'FileSourse2', FileName2);
end;
 
////////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.WMHotkey1( var msg: TWMHotkey );
var
 h:THandle;
begin
  if msg.hotkey = 1 then       //Процедура нажатия хоткея - ОСНОВА ПРОГРАММЫ!
  begin
  FileName:=IniFile.ReadString('Files' , 'FileSourse', FileName);
    if cooltrayicon1.IconVisible = True then
    Clipboard.Open;
    //следующие две строчки исправляют глючный текст из неюникодного буфера обмена
    h := Clipboard.GetAsHandle(CF_TEXT);
    SetClipboardData(CF_UNICODETEXT, h);
 
    Memo1.lines.loadfromfile(FileName);
    Memo1.Lines.Add(Clipboard.asText);
    if checkbox5.Checked = true then
  begin
    case combobox1.ItemIndex of
    0: Memo1.Lines.Add('');
    1: begin Memo1.Lines.Add(''); Memo1.Lines.Add(''); end;
    2: begin Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add(''); end;
    3: begin Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add(''); end;
    4: begin Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add(''); Memo1.Lines.Add(''); end;
    end;
  end;
    Memo1.lines.savetofile(FileName);
    BringToFront;
    if CheckBox3.Checked=True then
    cooltrayicon1.ShowBalloonHint('Копипастер 1.2', 'Выбранный текст записан в файл!', bitInfo, 10);
    Clipboard.Close;
  end;
end;
 
/////////////////////////////////////////////////////////////////////////////////////////
 
 
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose :=(not CheckBox1.Checked);
  if not CanClose then
  begin
    form1.hide;
    cooltrayicon1.IconVisible := True;
    cooltrayicon1.ShowBalloonHint('Копипастер 1.2', 'Программа работает в фоновом режиме', bitInfo, 10);
  end
else
  Application.Terminate;
 
end;
 
 
 
procedure TForm1.HotKey1Change(Sender: TObject);
begin
RegHotKey(HotKey1.HotKey,1);
HK:=HotKey1.HotKey;
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  IniFile.WriteInteger('HotKeys', 'HotKey1', HotKey1.HotKey);
end;
 
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked=True then
 Autorun(true,'Копипастер 1.2', Application.ExeName) else
 Autorun(false,'Копипастер 1.2', Application.ExeName);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  CheckBox1.Checked:=IniFile.ReadBool('Options', 'To Tray', False);
  CheckBox2.Checked:=IniFile.ReadBool('Options', 'Autorun', False);
  CheckBox3.Checked:=IniFile.ReadBool('Options', 'TrayMessage', True);
  CheckBox4.Checked:=IniFile.ReadBool('Options', 'Load To Tray', True);
  combobox1.ItemIndex:=IniFile.ReadInteger('FreeSpace', 'lines', 0);
  FileName:=IniFile.ReadString('Files' , 'FileSourse', FileName);
  FileName2:=IniFile.ReadString('Files' , 'FileSourse2', FileName2);
  SpecialFileName:=IniFile.ReadString('Files' , 'SpecialFileFolder', SpecialFileName);
  Edit1.Text:=FileName;
  Edit2.Text:=SpecialFileName;
  Edit4.Text:=FileName2;
  Hotkey1.HotKey:=IniFile.ReadInteger('HotKeys', 'HotKey1', HK);
 RegHotKey(HotKey1.HotKey,1);
  Hotkey2.HotKey:=IniFile.ReadInteger('HotKeys', 'SpecialHotKey', SHK);
 RegHotKey(HotKey2.HotKey,2);
  Hotkey4.HotKey:=IniFile.ReadInteger('HotKeys', 'HotKey2', HK2);
 RegHotKey(HotKey4.HotKey,3);
  if CheckBox4.Checked = true then
  Begin
    cooltrayicon1.HideMainForm;
    cooltrayicon1.IconVisible := True;
  cooltrayicon1.ShowBalloonHint('Копипастер 1.2', 'Программа работает в фоновом режиме', bitInfo, 10);
  end else form2.Visible:= true;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotkey( Handle, 1 );
UnRegisterHotkey( Handle, 2 );
UnRegisterHotkey( Handle, 3 );
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  IniFile.WriteBool('Options', 'Autorun', CheckBox2.Checked);
  IniFile.WriteBool('Options', 'TrayMessage', CheckBox3.Checked);
  IniFile.WriteBool('Options', 'Load To Tray', CheckBox4.Checked);
IniFile.Free;
end;
 
procedure TForm1.CoolTrayIcon1Startup(Sender: TObject;
  var ShowMainForm: Boolean);
var
  StartHidden: Boolean;
begin
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  StartHidden := IniFile.ReadBool('Options', 'Load To Tray', False);
  CheckBox4.Checked := StartHidden;
  ShowMainForm := not StartHidden;
  if CheckBox4.Checked = true then
  cooltrayicon1.ShowBalloonHint('Копипастер 1.2', 'Программа работает в фоновом режиме', bitInfo, 10);
 
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
SelectDirectory ('Выберите папку', '', SpecialFileName {[sdNewFolder, sdNewUI]});
Edit2.Text:=SpecialFileName;
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  IniFile.WriteString('Files' , 'SpecialFileFolder', SpecialFileName);
end;
 
procedure TForm1.HotKey2Change(Sender: TObject);
begin
RegHotKey(HotKey2.HotKey,2);
SHK:=HotKey2.HotKey;
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  IniFile.WriteInteger('HotKeys', 'SpecialHotKey', SHK);
end;
 
procedure TForm1.WMHotkey2( var msg: TWMHotkey );
var
 h:THandle;
begin
  if msg.hotkey = 2 then       //Процедура нажатия хоткея - ОСНОВА ПРОГРАММЫ!
  begin
    if cooltrayicon1.IconVisible = True then
    Clipboard.Open;
    h := Clipboard.GetAsHandle(CF_TEXT);
    SetClipboardData(CF_UNICODETEXT, h);
    Buffertext:=Clipboard.asText;
    Form1.Hide;
    Form3.show;
  end;
end;
 
procedure TForm1.WMHotkey3( var msg: TWMHotkey );
var
 h:THandle;
begin
  if msg.hotkey = 3 then       //Процедура нажатия хоткея - ОСНОВА ПРОГРАММЫ!
  begin
    if cooltrayicon1.IconVisible = True then
    Clipboard.Open;
    h := Clipboard.GetAsHandle(CF_TEXT);
    SetClipboardData(CF_UNICODETEXT, h);
        if CheckBox3.Checked=True then
    cooltrayicon1.ShowBalloonHint('Копипастер 1.2', 'ЭТО ЛОЖЬ!!!!', bitInfo, 10);
    Clipboard.Close;
  end;
end;
 
procedure TForm1.HotKey4Change(Sender: TObject);
begin
RegHotKey(HotKey4.HotKey,3);
HK2:=HotKey4.HotKey;
IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0),'.ini'));
  IniFile.WriteInteger('HotKeys', 'HotKey2', HotKey4.HotKey);
end;
 
end.
0
30.10.2012, 02:53
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 30.10.2012, 02:53
Ответы с готовыми решениями:

Как создать несколько горячих клавиш в делфи 7 ?
У меня есть готовый код, он работает, а как создать несколько таких клавиш? например: Ctrl + Q, Ctrl + P .... unit Unit1; ...

Вызов горячих клавиш в программе
Можете подсказать , как прописать вызов горячих клавиши в программе? То есть чтобы при нажатии кнопки (допустим Button1) срабатывала...

Запрет горячих клавиш windows в программе
Как можно сделать, чтобы после запуска программы до ее закрытия, горячие клавиши переставали работать? Например, чтобы программа не...

2
angstrom
30.10.2012, 03:32 2
Почему объявлено неправильно?
Delphi
1
2
3
4

private
    procedure WMHotKey1(var Msg: TWMHotKey);
    procedure WMHotkey2(var msg: TWMHotkey);
    procedure WMHotkey3(var msg: TWMHotkey);  message WM_HOTKEY;
должно быть:
Delphi
1
2
3
4

private
    procedure WMHotKey1(var Msg: TWMHotKey); message WM_HOTKEY;
    procedure WMHotkey2(var msg: TWMHotkey); message WM_HOTKEY;
    procedure WMHotkey3(var msg: TWMHotkey); message WM_HOTKEY;
1 / 1 / 2
Регистрация: 24.10.2012
Сообщений: 19
30.10.2012, 04:42  [ТС] 3
Не работает этот спопсоб, пишет что-то вроде:
[Error] Unit1.pas(87): Duplicate message method index

Добавлено через 1 час 0 минут
Ок, сам нашёр решение:
Delphi
1
2
3
4
5
6
7

procedure TForm1.wmhotkey(var msg: twmhotkey);
begin
 if msg.hotkey = id1 then ... // действие 1;
 if msg.hotkey = id2 then ... // действие 2;
 if msg.hotkey = id3 then ... // действие 3;
 if msg.hotkey = id4 then ... // действие 4;
end;
0
30.10.2012, 04:42
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 30.10.2012, 04:42
Помогаю со студенческими работами здесь

Работа горячих клавиш в программе свернутой в трей
Добрый день! Только учусь программированию на C#. Написал простую программу в которой есть 2 кнопки при нажатии одной из кнопок идет...

Как перейти к экспортному методу при помощи горячих клавиш?
Добрый день! Подскажите как перейти к вызванному экспортному методу находящимся в другом модуле при помощи горячих клавиш? в 1с 8.2

Как остановить выполнение цикла путем нажатия горячих клавиш?
Добрый вечер уважаемые. Суть проблемы: Есть зацикленный процесс, который выполняется путем использования библиотеки pyautogui. Движение...

Как в среде Embarcadero с соучастием горячих клавиш добавлять необходимые для функций библиотеки?
Аналогично среде eclipse для JAVA - там SHIFT + CTRL + O, существует ли вообще для Embarcadero сводка горячих клавиш для такких...

Подскажите как сделать, чтобы по нажатию горячих клавиш курсор мыши возвращался в центр экрана
Нужно чтобы после нажатия нескольких клавиш курсор возвращался в центр экрана.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru