Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
ВнизПомогите!!! Найти похожие ветки
← →
Snake (2002-01-17 17:24) [1]Можно, например, самое простое - это обработать событие OnKeyDown.
procedure TMainForm.MainFormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssShift in Shift)and(key=VK_UP) then ShowMessage("Вперед с шиытом")
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.007 c