Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TShiftState...

Автор: Spawn 7.6.2002, 22:36

почему это вызывает ошибку:
if key=#97 and (ssShift) then(сдесь ERROR) ....???

Автор: Vit 7.6.2002, 23:25

ssShift - это константа применяемая в типе TShiftState (являущемся типом Set) а не логическая, надо примерно так:

Код


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (key=$97) and (ssShift in Shift) then
    begin
    end;
end;