くだすれDelphi(超初心者)その28
■ このスレッドは過去ログ倉庫に格納されています
0088デフォルトの名無しさん
2005/11/09(水) 15:43:21状態を実現するために
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift in [ssCtrl,ssShift]) and (Key = VK_DELETE) then //エラー!
if (Shift = [ssCtrl]) and (Key = VK_DELETE) then //これはOK
・・・・・・・・
end;
としたのですがエラーになってしまいます。なんででしょ?
type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
なので問題ないと思うのですが。
■ このスレッドは過去ログ倉庫に格納されています