| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Определение копки [D6, Win2k]
Checist [root] © (2003-01-12 04:19:00)В событии KeyPress одного компонента нужно сравнить нажатую с нужной - то есть : if key = "нужной кнопки" then...
Как обозначить "нужную кнопку" если это: Enter, Ctrl, Shift, Alt.
Нежить (2003-01-12 11:07:00) [1]procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
var Mess: string;
begin Mess := "FormKeyPress With " + TComponent(Sender).Name + " and ";
case Ord(Key) of {F1 - Virtual Key Codes}
VK_RETURN: Mess := Mess + "Enter pressed";
VK_TAB: Mess := "Ты никогда не увидишь подобного сообщения";
VK_ESCAPE: Close;
else Mess := Mess + "Ord(Key) is " + IntToStr(Ord(Key))
end;
ShowMessage(Mess);
end;
Ешё: http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1042307759&n=0
Song (2003-01-12 10:33:00) [2]IF Key=Chr(VK_RETURN) then ... // - Enter
ну и т.д. Shift - VK_SHIFT, Alt - VK_MENU, Ctrl - VK_CONTROL
| |
