Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Вниз
Как отследит нажатие Ctrl Найти похожие ветки
← →
NoMaD (2003-05-10 09:34) [0]В приведенном ниже коде:
procedure TfmMain.sgHorizontKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
...
If (Key=VK_INSERT) And (Shift=ssAlt) Then { Здесь выдает ошибку }
Begin
...
...
...
End;
End;
получаю ошибку "[Error] Main.pas(197): Incompatible types",
причем при дальнейшем анализе выяснил что ошибка именно в "(Shift=ssAlt)".
Попытка заменить ssAlt на ssCtrl или ssShift ничего не меняет. Как быть?
← →
NDeu (2003-05-10 11:29) [1]type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
← →
Mikelson (2003-05-10 11:41) [2]Пиши так: "ssAlt in Shift" или "Shift = [ssAlt]"
← →
NoMaD (2003-05-10 14:37) [3]2Mikelson БОЛЬШОЕ СПАСИБО!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c