Горячие клавиши - Delphi - Ответ 3669886

@Ivanko1993 · Регистрация: 29.05.2012

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

Вот такая проблемка. Нужно мне настроить горячие клавиши на "Exit" - esc, "About" - f1, "Open" - Ctrl+О.
Не могу понять как это сделать все перегуглил, и пробовал в OnKeyPress прописывать, но ничего не получалось.

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ExtDlgs, jpeg, XPMan, ComCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    XPManifest1: TXPManifest;
    Button18: TButton;
    Button19: TButton;
    Button21: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  ch1:real; zn:char;
  kd:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'1';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.text+'2';
end;
 
 
procedure TForm1.Button3Click(Sender: TObject);
 
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.text+'3';
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
 
If edit1.Text='' then edit1.Text:=edit1.Text else
ch1:=strToFloat(edit1.text);
edit1.text:='';
zn:='+';
end;
 
 
procedure TForm1.Button5Click(Sender: TObject);
 
begin
If edit1.Text='' then edit1.Text:=edit1.Text else
ch1:=strToFloat(edit1.text);
edit1.text:='';
zn:='-';
end;
 
 
procedure TForm1.Button6Click(Sender: TObject);
begin
If edit1.Text='' then edit1.Text:=edit1.Text else
  case zn of
  '+':Begin edit1.Text:=floatToStr(ch1+strToFloat (edit1.Text)); kd:=1; end;
  '-':Begin edit1.Text:=floatToStr(ch1-strToFloat (edit1.Text)); kd:=1; end;
  '*':Begin edit1.Text:=floatToStr(ch1*strToFloat (edit1.Text)); kd:=1; end;
  '/': if edit1.text[1]='0' then showmessage ('Íà íîëü äåëèòü íåëüçÿ!')
  else begin edit1.Text:=floatToStr(ch1/strToFloat (edit1.Text)); kd:=1; end;
  end;
 
 
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'4';
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'5';
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'6';
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'7';
end;
 
procedure TForm1.Button13Click(Sender: TObject);
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'8';
end;
 
procedure TForm1.Button12Click(Sender: TObject);
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'9';
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'0';
end;
procedure TForm1.Button15Click(Sender: TObject);
var
sh: string;
begin
sh:= Edit1.Text;
if sh<>'' then
Delete(sh,1,1);
Edit1.Text:=sh;
end;
 
procedure TForm1.Button14Click(Sender: TObject);
begin
If edit1.Text='' then edit1.Text:=edit1.Text else
ch1:=strToFloat(edit1.text);
edit1.text:='';
zn:='/';
end;
 
procedure TForm1.Button16Click(Sender: TObject);
begin
If edit1.Text='' then edit1.Text:=edit1.Text else
ch1:=strToFloat(edit1.text);
edit1.text:='';
zn:='*';
end;
procedure TForm1.Button17Click(Sender: TObject);
Var
 i:integer;
 
Begin
if edit1.Text='' then edit1.text:='0,';
For i:=1 to Length(Form1.edit1.text) do
Begin
IF (Form1.edit1.text[i]=',') then Exit;
 
End;{FOR}
 
Form1.edit1.text:=Form1.edit1.text+',';
 
End;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
If openpicturedialog1.Execute
then image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Messagedlg('Êàëüêóëÿòîð âåðñèÿ 3.3',
mtInformation,[mbok],0);
 
end;
 
procedure TForm1.Button18Click(Sender: TObject);
begin
  Edit1.Text := '0';
end;
 
procedure TForm1.Button20Click(Sender: TObject);
 
var
sh: string;
begin
sh:= Edit1.Text;
if sh<>'' then
Delete(sh,1,1);
Edit1.Text:=sh;
end;
 
procedure TForm1.Button19Click(Sender: TObject);
 
var
st:string;
begin
st:=edit1.Text;
delete(st,length(st),1);
edit1.Text:=st;
if edit1.Text='' then
begin
edit1.Text:='0';
 
// Backspace
end;
end;
 
procedure TForm1.Button21Click(Sender: TObject);
 
begin
close;
 
end;
 
end.

Вернуться к обсуждению:
Горячие клавиши Delphi

Следующий ответ

Другие темы раздела
Delphi Random в Delphi https://www.cyberforum.ru/ delphi-beginners/ thread692161.html Добрый день,помогите пожалуйста написать программу Random чисел с выбором диапазона чисел и количества выдоваемых чисел типо этого http://www.random.org/integers/	DLL Библиотека и поток Delphi Создаю ДЛЛ библиотеку и в ней есть функции связаные с работой в интернете, и хотелось бы сделать что бы они работали в потоке, как сделать? (сделать надо в библиотеке поток)
Delphi Как синхронизировать функции в потоках library radiozuk; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records... https://www.cyberforum.ru/ delphi-beginners/ thread692132.html	Delphi Исправить Тест Здравствуйте. Я несколько дней пытаюсь доделать Тест, никак не получается скомпилировать и доделать прогу, сделать форму. Я только еще изучаю Delphi, а уже надо сдавать. Посмотрите пожалуйста. Мне надо вместо кнопки Справка сделать кнопку О программе. Структура текстовика: 1. Название теста 2. Разделить вопросов (*****) 3. Вопрос. 4. 1-ый вариант ответа 5. 2-ый вариант ответа 6. Правильный... https://www.cyberforum.ru/ delphi-beginners/ thread692092.html
Как заставить Twebbrowser использовать Javascript Delphi Как заставить Twebbrowser использовать Javascript и в какой процедуре вызвать эту Javascript-функцию	Delphi Единоразовое отлавливание Клика Мыши https://www.cyberforum.ru/ delphi-beginners/ thread692063.html Здравствуйте!... Мне нужна помощь с Hook'ом. Все работает если я использую его на рабочей форме. однако если щелчок производится вне формы то UnhookWindowsHookEx не срабатывает =(((( library Project2; Uses Windows,Messages,SysUtils; Var SysHook:HHook=0; Function SysMsgProc(Code:Integer; WParam:LongInt; LParam:LongInt): Lresult;{:LongInt;} stdcall; Var
Delphi Запись данных из Combobox в ини файл https://www.cyberforum.ru/ delphi-beginners/ thread692009.html Здравствуйте! Такая задачка, мне нужно выбрать какую нибудь надпись в Combobox, записать в ini файл и вывести в label! Ребят помогите пожалуйста...	Delphi Вывод из файла. Не показываются некоторые знаки. Всем привет! Такая проблемка: при выводе данных из Ini файла в Radiobutton, получаются такие "вопросы" (см. вложения)... Можно ли избавится от этих "вопросов" (вместо вопросов должен быть знак бесконечности)
Delphi Определить минимальное число(балл) из списка https://www.cyberforum.ru/ delphi-beginners/ thread692001.html Здравствуйте! Такая у меня задачка:На форме стоит ListBox (с вкл multiselect) с индексами типа (12.32.565) каждый индекс отвечает своему баллу (макс балл 5).После того как юзер выбрал нужные индексы должен произойти расчет балла и вывести минимальный балл из того что в списке. (баллы у меня хранятся в тож в ListBox(скрытом) и связаны по индексу выбора типа ListBox1 ListBox2 12.234.45...	Delphi Не правильно считает дискриминант Привет всем. помоги решить проблему. программа находит корни квадратного уравнения. Если давать значения a-1 b-1 c-1, потом любые положительные значения, то программа работает. если сразу после запуска вбить например a-1 b-5 c-1 - то D= 5 (хотя должен быть 21), и дальше дискриминант считается не правильно. если вбить отрицательные значения, даже после a-1 b-1 c-1 - то дискриминант кривой.... https://www.cyberforum.ru/ delphi-beginners/ thread691968.html
Delphi Отрицательные индексы в массиве Имеется код: for i := 50 to length(array4) - 51 do begin ym := 0; for k := -50 to 50 do begin array1 := array1 + array2array3array4; end; end;	Delphi Передать image с одной формы на другую Помогите пожалуйста решить проблему В image1 первой формы загружаю изображение через OpenPictureDlg, передаю его на вторую форму, но он там не появляется Но если загрузить изображение на этипе проектирования - оно передается на вторую форму Значит ошибка в загрузке через OpenPictureDlg,но где не знаю Загружаю вот так: OpenPictureDialog1.Execute; CurrentFile :=... https://www.cyberforum.ru/ delphi-beginners/ thread691838.html

	08.11.2012, 16:01