Host+DLL模式下如何使用快速鍵

 Host+DLL模式下如何使用快捷鍵

最近在做一個Host+DLL 的插件系統，每個DLL模組都繼承一個基類模組TBaseForm , 然後再基類模組裡定義了增F1、刪F2、改F3、查F4等功能，每個功能定義了一個快速鍵，

在主程式這邊透過PageControl來載入每個DLL模組，問題來了，當我開啟多個模組時，按下F1 時，系統呼叫的不是我目前啟動的TabSheet 模組，而是第一個開啟的模組的新增

功能，原來快捷鍵被第一個模組註冊後，後面打開的模組再註冊就無效了。後來想到一個方法，就是再  TabSheet的 OnHide 事件裡把目前模組的快速鍵取消，在 onShow 事件裡

再把目前模組的快捷鍵關聯起來，經過測試成功！ ！ ！ ，以下是部分代碼：

<span> 1</span> <span>procedure</span> TBaseForm.bidingshortcut; <span>//</span><span>绑定快捷键</span> <span> 2</span> <span>begin</span> <span> 3</span> al_new.ShortCut:=TextToShortCut(<span>'</span><span>F5</span><span>'</span><span>); </span><span> 4</span> al_edit.ShortCut:=TextToShortCut(<span>'</span><span>F6</span><span>'</span><span>); </span><span> 5</span> al_<span>delete</span>.ShortCut:=TextToShortCut(<span>'</span><span>F7</span><span>'</span><span>); </span><span> 6</span> al_refdata.ShortCut:=TextToShortCut(<span>'</span><span>F8</span><span>'</span><span>); </span><span> 7</span> al_query.ShortCut:=TextToShortCut(<span>'</span><span>F3</span><span>'</span><span>); </span><span> 8</span> al_report.ShortCut:=TextToShortCut(<span>'</span><span>F2</span><span>'</span><span>); </span><span> 9</span> al_<span>export</span>.ShortCut:=TextToShortCut(<span>'</span><span>F10</span><span>'</span><span>); </span><span>10</span> al_import.ShortCut:=TextToShortCut(<span>'</span><span>F4</span><span>'</span><span>); </span><span>11</span> al_gridset.ShortCut:=TextToShortCut(<span>'</span><span>F9</span><span>'</span><span>); </span><span>12</span> <span>end</span><span>; </span><span>13</span> <span>14</span> <span>procedure</span> TBaseForm.unbidingshortcut; <span>//</span><span>解除绑定快捷键</span> <span>15</span> <span>begin</span> <span>16</span> al_new.ShortCut:=TextToShortCut(<span>'</span><span>none</span><span>'</span><span>); </span><span>17</span> al_edit.ShortCut:=TextToShortCut(<span>'</span><span>none</span><span>'</span><span>); </span><span>18</span> al_<span>delete</span>.ShortCut:=TextToShortCut(<span>'</span><span>none</span><span>'</span><span>); </span><span>19</span> al_refdata.ShortCut:=TextToShortCut(<span>'</span><span>none</span><span>'</span><span>); </span><span>20</span> al_query.ShortCut:=TextToShortCut(<span>'</span><span>none</span><span>'</span><span>); </span><span>21</span> al_report.ShortCut:=TextToShortCut(<span>'</span><span>none</span><span>'</span><span>); </span><span>22</span> al_<span>export</span>.ShortCut:=TextToShortCut(<span>'</span><span>none</span><span>'</span><span>); </span><span>23</span> al_import.ShortCut:=TextToShortCut(<span>'</span><span>none</span><span>'</span><span>); </span><span>24</span> al_gridset.ShortCut:=TextToShortCut(<span>'</span><span>none</span><span>'</span><span>); </span><span>25</span> <span>end</span>;

然後在Host程式中的onHide和onShow分別呼叫unbidingshortcut和bidingshortcut即可。

這裡有一個基類的轉換過程，因為我事先在tabsheet的tag裡保存了當前窗體，所以只要做以下轉換：

TBaseForm(TabSheet.tag).bidingshourtcut 就可以了。

 

以上就介紹了Host+DLL模式下如何使用快捷鍵，包含了使用快捷鍵方面的內容，希望對PHP教程有興趣的朋友有所幫助。