Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

Как отследит нажатие 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
1-70390
Marina_S
2003-05-10 23:31
2003.05.22
Как определить, что Media Player закончил проигрывание файла?


3-70183
Avreliy
2003-05-03 18:58
2003.05.22
DBLookupComboBox и DBCtrlGrid!


7-70529
Tiil
2003-03-23 11:33
2003.05.22
Интерфейс приложений


11-70193
Alexei Dragoner
2002-08-07 12:22
2003.05.22
Вот и Delphi 7.... Какие планы?


7-70530
CMOK
2003-03-23 23:43
2003.05.22
Загрузка CPU/процесс