有關FileListBox裡OnKeyPress事件處理問題 |
尚未結案
|
chan5287
一般會員 ![]() ![]() 發表:11 回覆:9 積分:4 註冊:2004-11-07 發送簡訊給我 |
|
deity
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
chan5287您好:
ToolButton 是没有onkeypress事件的,而如果用FileListBox裡的OnKeyPress事件處理又好像和ToolButton没什么关系,况且在OnKeyPress事件做删除,好像不合逻辑?
直接在ToolButton做删除是不是您所要的
|
chan5287
一般會員 ![]() ![]() 發表:11 回覆:9 積分:4 註冊:2004-11-07 發送簡訊給我 |
|
deity
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
|
chan5287
一般會員 ![]() ![]() 發表:11 回覆:9 積分:4 註冊:2004-11-07 發送簡訊給我 |
|
jow
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
建議From的KeyPreview設為True
在FormKeyDown中寫下
procedure TForm1.TBB1Click(Sender: TObject); begin if FileExists(F1.FileName) then begin DeleteFile(F1.FileName); F1.Update; end; end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_DELETE: if MessageDlg('Delete File : ' F1.FileName, mtConfirmation, [mbYes, mbNo], 0) = mrYes then TBB1.Click; end; end; |
deity
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
引言: deity謝謝妳的意見...只不過現在的我是遇到一個習題 我打出來讓你看看好了---- 在FileListBox物件的OnKeyPress事件中加入 按下DELETE鍵可以刪除檔案的功能 想請教兩個問題的是..... 他這個是不是鍵盤上的DELETE鍵呢.. 如果是的話我要怎麼寫... 那會不會是用TBB1(ToolButton)的按鈕呢? 就是這問題,謝謝deity的勞心... |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |