VFP 愛用者社區

[jms7275]

在Editbox和textBox中,因為有時會有些在別的檔案的文字,要放進資料庫
因使用者還是比較習慣,先標示文字再按滑鼠右鍵,做複製,貼上等動作
(雖然試過用ctrl+快捷鍵可以)
不知有無設定可解決此問題
感謝

[garfield]

* 參考: 李老師 潛瑞 的書
在 .RightClick 中
* pop menu
With this
Define POPUP shortcut shortcut RELATIVE FROM MROW(),MCOL()
Define BAR _med_cut OF shortcut PROMPT "剪下(\<T)" ;
KEY CTRL+X, "Ctrl+X" ;
SKIP FOR this.clip_no_data()
Define BAR _med_copy OF shortcut PROMPT "複製(\<C)" ;
KEY CTRL+C, "Ctrl+C" ;
SKIP FOR this.clip_no_data()
Define BAR _med_paste OF shortcut PROMPT "貼上(\<P)" ;
KEY CTRL+V, "Ctrl+V" ;
SKIP FOR empty(_cliptext)
Activate POPUP shortcut
Endwith

*******
建立一個新的"方法" clip_no_data
if type('_screen.ActiveForm.ActiveControl.SelText') = 'U'
return .T.
else
return empty(_screen.ActiveForm.ActiveControl.SelText)
endif

[jms7275]

感謝garfield大指導
問題解決了

[jms7275]

剛剛依先進的提點,用關鍵字查了一下MSDN online,下面這篇有提到
http://support.microsoft.com/default.aspx?scid=kb;en-us;193626

但似乎沒有提到刪除的宣告(雖然用鍵盤Delete鍵可以),
試過BAR_MED_del,BAR_MED_delete都失敗

Define BAR _med_delete OF shortcut PROMPT "刪除(\<D)" ;
KEY CTRL+D, "Ctrl+D" ;

還有兩個UNDO,REDO;試了一下UNDO沒問題,REDO用在此處不知合不合適
DEFINE BAR _MED_UNDO OF shortcut PROMPT "復原上一動作(\<U)" ;
KEY CTRL+U, "Ctrl+U" ;

DEFINE BAR _MED_REDO OF shortcut PROMPT "重複上一動作(\<R)" ;
KEY CTRL+R, "Ctrl+R" ;
SKIP FOR thisform.clip_no_data()


Menu中的分隔線宣告
DEFINE BAR 3 OF shortcut PROMPT "\-"