Выход из программы при нажатии кнопки или клавиши

@Vladimir1988 · Регистрация: 20.11.2009

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

Подскажите пожалуйста, как сделать так чтобы при нажатии кнопки программа закрывалась, чтобы каждый раз не нажимать Programm reset

@Mixer FM · 21.01.2010, 10:28

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

Подскажите пожалуйста, как сделать так чтобы при нажатии кнопки программа закрывалась, чтобы каждый раз не нажимать Programm reset

Для главной формы пишишь

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.close;
end;
 
end.

deathNC · 21.01.2010, 10:36

а ещё лучше печатай в кнопке такой код:

Delphi

Halt;

@NemiroFFyo · 21.01.2010, 10:40

Mixer FM, то, что вы написали это закрытие формы, а не проекта, поэтому не всегда срабатывает если Form1 не является "главной"

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
end.

@Андрей Борисови · 21.01.2010, 10:40

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

а ещё лучше печатай в кнопке такой код:
Код Delphi1 Halt;

Windows 7 сказал что я плохой и недолжен больше так завршать программу

а на close не ругается

deathNC · 21.01.2010, 10:45

Сообщение от Андрей Борисови

Windows 7 сказал что я плохой и недолжен больше так завршать программу

а на close не ругается

сколько систем за жизнь Delphi повидал, не раз такого не видел... И семёрка обновлённая (Windows Seven Максимальная) не раз подобного не выдавала...

может, вы допустили в слове из четырёх букв ошибку?

Close, для не посвящённых, тоже выходит ИЗ ФОРМЫ, А НЕ ИЗ ПРОЕКТА!!!

@~~Inna Vashchuk~~ · 24.09.2014, 00:33

А как запрограммировать закрытие формы при нажатии клавиши F10?

@ZfoxAK · 24.09.2014, 07:14

расположите на форме MainMenu1
создайте элемент и назовите "Выход" - это делается в свойстве Caption данного элемента
В испекторе объектов для этого элемента необходимо установить в свойстве ShortCut - F10
На форме нажмите на элемент в менюшке тем самым создатся процедура для обработки события.
В теле процедуры напишите

Delphi

1	Form1.close;

@droider · 26.09.2014, 08:55

Сообщение от Inna Vashchuk

запрограммировать закрытие формы при нажатии клавиши F10

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

расположите на форме MainMenu1

зачем прикручивать сюда меню? Можно и без него, сразу обрабатывать нажатие функциональной клавиши

Delphi

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key =VK_F10 then Form1.Close;
end;
end.

Inna Vashchuk, если под закрытием формы подразумевается закрытие всей программы, то лучше написать так

Delphi

1	if Key =VK_F10 then Application.Terminate;

@ZfoxAK · 26.09.2014, 09:20

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

зачем прикручивать сюда меню? Можно и без него, сразу обрабатывать нажатие функциональной клавиши

Проверил бы для начала код. Если на форме есть еще парочка компонет, то это событие просто так не сработает... И у ТС-а сразу возникнет еще вопрос.

Delphi

1	Form1.KeyPreview:=true;

Тогда сработает. И через меню прикольней...

@droider · 26.09.2014, 10:46

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

Проверил бы для начала код

Я проверил как раз-таки, выставив предварительно KeyPreview - это у меня правило

Все работало без проблем.

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

через меню прикольней

тебе возможно, но ТС вряд ли

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

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

у ТС-а сразу возникнет еще вопрос

надо тогда рассмотреть свойства формы.

@ZfoxAK · 26.09.2014, 11:10

Не по теме:

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

надо тогда рассмотреть свойства формы.

Тот кто не знает, как форму закрыть. Тому зависимость не срабатывания процедур Form1KeyDown и т.д. .... от свойств формы - не совсем очевидна )). Скорее всего совсем не очевидна

@Vladimir1988 0 / 0 / 1 Регистрация: 20.11.2009 Сообщений: 18
		1
	Выход из программы при нажатии кнопки или клавиши 21.01.2010, 10:25. Показов 48238. Ответов 11 Метки нет (Все метки) Подскажите пожалуйста, как сделать так чтобы при нажатии кнопки программа закрывалась, чтобы каждый раз не нажимать Programm reset 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	21.01.2010, 10:40	5
	Сообщение от deathNC а ещё лучше печатай в кнопке такой код: Код Delphi1 Halt; Windows 7 сказал что я плохой и недолжен больше так завршать программу а на close не ругается 1

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	21.01.2010, 10:45	6
	Сообщение от Андрей Борисови Windows 7 сказал что я плохой и недолжен больше так завршать программу а на close не ругается сколько систем за жизнь Delphi повидал, не раз такого не видел... И семёрка обновлённая (Windows Seven Максимальная) не раз подобного не выдавала... может, вы допустили в слове из четырёх букв ошибку? Close, для не посвящённых, тоже выходит ИЗ ФОРМЫ, А НЕ ИЗ ПРОЕКТА!!! 1

@~~Inna Vashchuk~~ Заблокирован
	24.09.2014, 00:33	7
	А как запрограммировать закрытие формы при нажатии клавиши F10? 0

@droider 4918 / 2786 / 854 Регистрация: 04.10.2012 Сообщений: 10,138
	26.09.2014, 10:46	11
	Сообщение от ZfoxAK Проверил бы для начала код Я проверил как раз-таки, выставив предварительно KeyPreview - это у меня правило Все работало без проблем. Сообщение от ZfoxAK через меню прикольней тебе возможно, но ТС вряд ли Добавлено через 1 минуту Сообщение от ZfoxAK у ТС-а сразу возникнет еще вопрос надо тогда рассмотреть свойства формы. 0

@ZfoxAK
	26.09.2014, 11:10 Выход из программы при нажатии кнопки или клавиши #12
	Не по теме: Сообщение от droider надо тогда рассмотреть свойства формы. Тот кто не знает, как форму закрыть. Тому зависимость не срабатывания процедур Form1KeyDown и т.д. .... от свойств формы - не совсем очевидна )). Скорее всего совсем не очевидна 0