Горячие клавиши для программы

@Андрей159 · Регистрация: 22.09.2015

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

мне нужно сделать горячие клавиши для программы
суть такова:
когда я нажимаю стрелку в право с ListBox1 переходы в ListBox2 для выбора пункта
когда я нажимаю стрелку в лево с ListBox2 переходы в ListBox1 для выбора пункта.
когда я нажимаю Enter button1 активируется

@Puporev · 10.06.2016, 11:13

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview:=true;
Button1.Enabled:=false;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
VK_Left:ListBox1.SetFocus;
VK_Right:ListBox2.SetFocus;
VK_Return:Button1.Enabled:=true;
end;
end;

@Андрей159 · 10.06.2016, 11:25 **[ТС]**

Все работает но с Enter вы меня не поняли когда я нажмаю Enter должен выполняться код который я записал в саму кнопку

@Puporev · 10.06.2016, 11:30

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview:=true;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
VK_Left:ListBox1.SetFocus;
VK_Right:ListBox2.SetFocus;
VK_Return:Button1.Click;
end;
end;

@Андрей159 0 / 0 / 1 Регистрация: 22.09.2015 Сообщений: 104
		1
	Горячие клавиши для программы 10.06.2016, 10:57. Показов 2588. Ответов 3 Метки нет (Все метки) мне нужно сделать горячие клавиши для программы суть такова: когда я нажимаю стрелку в право с ListBox1 переходы в ListBox2 для выбора пункта когда я нажимаю стрелку в лево с ListBox2 переходы в ListBox1 для выбора пункта. когда я нажимаю Enter button1 активируется 0

@Андрей159 0 / 0 / 1 Регистрация: 22.09.2015 Сообщений: 104
	10.06.2016, 11:25 [ТС]	3
	Все работает но с Enter вы меня не поняли когда я нажмаю Enter должен выполняться код который я записал в саму кнопку 0

Опции темы

Горячие клавиши для программы

Решение