Delphi - база знаний

       

Как работать с ssShift и TShiftState?


Как работать с ssShift и TShiftState?



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

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

Автор ответа: Vit
Взято с Vingrad.ru




Содержание раздела