中台 - 98-2 物件導向程式設計 05/31練習

鍵盤控制練習

請練習在Panel中放上一個Button，並以鍵盤偵測進行上下左右移動
範例： [ Download ]

• Form 物件的OnKeyDown, OnKeyPress差異
• FormKeyDown的使用
• Key: Word
• 37 : 左
• 38 : 上
• 39 : 右
• 40 : 下
• 使用Additional / Speed Button便不會搶Focus
• 相關內容請見課本： 12-1 , 12-2

動態物件產生

以動態方式產生按鈕，並按一下多一個按紐，且以亂數使其動作於panel中
範例： [ Download ]
原始碼：[ Download ]

• 以 array of TButton; 宣告按鈕陣列
• 以setLength()函式設定大小
• 以setLength()建立新的物件
• 事件指定方式：
• 在Type中TForm1下新增函式 Ex:  

procedure btn_event(Sender: TObject);

• 撰寫函式

procedure TForm1.btn_event(Sender: TObject); begin (sender as TButton).Visible := false; end;

• 使用函式

btnarr[1].OnClick := btn_event;

影像物件輸入與本地位址截取

範例： [ Download ] 

• 使用Image物件顯示圖片
• Image1.Picture.LoadFromFile( 檔案路徑 )  載入圖片
• 若要使用jpg檔，記得在uses中加入 jpeg 函式庫
• 使用OpenPictureDialog1取的檔案路徑
• 使用GetCurrentDir() 取得現在路徑
• 使用Win3.1 \ FileListBox 物件取的目錄中的檔案清單
• 設定目錄路徑為 FileListBox1.Directory  (注意不要重覆設定)
• FileListBox1.Items.Count 取得目錄中的檔案數
• FileListBox1.Items[ N] 取得目錄中第N個檔案名稱
• 相關內容請見課本： 10-8