日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

9.鍵盤鼠標和文件編程 怎么進入編程界面( 三 )


例3:在屏幕上輸出按鍵操作的結果,包括Shift、Alt、Ctrl鍵 。界面如下:

9.鍵盤鼠標和文件編程 怎么進入編程界面


示例代碼:
過程TForm1 。FormKeyDown(發(fā)送方:TObjectvar鍵:WordShift:TShiftState);開始標簽1 。標題:= & # 39;';if Shift & gt;= [ssShift]然后Label1 。標題:= & # 39;Shift & # 39;if Shift & gt;= [ssAlt]然后Label1 。標題:= & # 39;Alt & # 39;if Shift & gt;= [ssCtrl]然后Label1 。標題:= & # 39;Ctrl & # 39;Label1 。標題:= Label1 。caption inttostr(key);end;
,

推薦閱讀