Нажимается кнопка при нажатии клавиши и обрамляется пунктиром

@delphihelp · Регистрация: 21.02.2012

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

нажимается кнопка при нажатии клавиши (например пробела). Я сделал обработку в

Delphi
1
2
3
4
procedure TForm1.button1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#32 then begin
end;

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

Что можно придумать, чтобы кнопка не нажималась. Помогите пожалуйста.

@Bionic4656 · 17.05.2012, 22:11

Delphi
1
2
3
4
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#32 then button1.Click
end;

использовал OnKeyPress

@antikiler_ · 17.05.2012, 22:49

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

Что можно придумать, чтобы кнопка не нажималась. Помогите пожалуйста.

Отключить на всех кнопках формы TabStop.(tabstop = false).

@БогДелфей · 18.05.2012, 00:37

Фокус нужно перебрасывать на какой нибудь компонент, я обычно перебрасываю на StatusBar1.SetFocus;

Одиночка · 18.05.2012, 09:07

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
If Key=#32 Then Key:=Char(0);
end;
 
procedure TForm1.Button1Down(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If Key=Ord(' ') Then Key:=0;
end;

При этом кнопка на нажатие пробела не реагирует.
События всех кнопок можешь установить на этот код. Для каждой отдельно делать не нужно. Ну и как сказал antikiler_, поотключай TabStop у всех кнопок. А может этого (поотключать TabStop) будет и достаточно.

@delphihelp · 18.05.2012, 13:47 **[ТС]**

Большое вам спасибо!

Добавлено через 34 минуты
Простое отклучение tabstop=false не помогло. Удалось отключить реагирование кнпки по совету пользователя Одиночка. Спасибо.

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@БогДелфей 474 / 337 / 36 Регистрация: 31.05.2011 Сообщений: 1,164
	18.05.2012, 00:37
	Фокус нужно перебрасывать на какой нибудь компонент, я обычно перебрасываю на StatusBar1.SetFocus; 0

@delphihelp 2 / 2 / 1 Регистрация: 21.02.2012 Сообщений: 108
	18.05.2012, 13:47 [ТС]
	Большое вам спасибо! Добавлено через 34 минуты Простое отклучение tabstop=false не помогло. Удалось отключить реагирование кнпки по совету пользователя Одиночка. Спасибо. 0

Нажимается кнопка при нажатии клавиши и обрамляется пунктиром

Решение