клавиатура с Delphi - Общие вопросы Delphi

Илюха · 02.11.2007, 23:18

Хай программисты!! У меня возник вопросец: Как мне сделать свяску клавы с делфи?? Например: при нажатии на кнопку Esc программа закрывалась??

Зарание благодарен

AlDelta · 02.11.2007, 23:23

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.KeyPreview := True;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then Close;
end;

V-int · 02.11.2007, 23:29

или...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_escape then close;
end;

Илюха · 02.11.2007, 23:32

спасибо!! щас буду тестировать на практике

GAGARIN-NEW · 04.11.2007, 19:20

или так
сделай кнопку присвой button1.cancel := true ;
и всегда при нажатии esc будет происходить нажатие кнопки а в его событии и пиши что хочеш =)

02.11.2007, 23:18	#1
Илюха Заблокирован Регистрация: 29.09.2007 Сообщений: 106	клавиатура с Delphi Хай программисты!! У меня возник вопросец: Как мне сделать свяску клавы с делфи?? Например: при нажатии на кнопку Esc программа закрывалась?? Зарание благодарен

04.11.2007, 19:20	#5
GAGARIN-NEW Познаю мир Форумчанин Подтвердите свой е-майл Регистрация: 05.10.2007 Сообщений: 387	или так сделай кнопку присвой button1.cancel := true ; и всегда при нажатии esc будет происходить нажатие кнопки а в его событии и пиши что хочеш =) ---

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Клавиатура не работает	ViNcHeStEr	Компьютерное железо	1	04.07.2008 15:52
Программируемая клавиатура	Valent	Компьютерное железо	0	05.05.2008 04:16
Клавиатура	RealSHELS	Общие вопросы Delphi	6	29.03.2008 15:52
Клавиатура	Pusher	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	0	22.03.2008 00:47
Клавиатура и мышь	Борис2	Паскаль, Turbo Pascal, PascalABC.NET	4	11.12.2007 23:32

02.11.2007, 23:23	#2
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	Код: `procedure TForm1.FormCreate(Sender: TObject); begin Form1.KeyPreview := True; end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key=#27 then Close; end;` Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

02.11.2007, 23:29	#3
V-int Регистрация: 02.11.2007 Сообщений: 7	или... procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=vk_escape then close; end;

02.11.2007, 23:32	#4
Илюха Заблокирован Регистрация: 29.09.2007 Сообщений: 106	спасибо!! щас буду тестировать на практике