如果在ide中增加一項自己的選單,求一例項 delphi / windows sdk/api
如果在ide中增加一項自己的選單,然後點選該選單又彈出自己定義的某個視窗!!
給個例項吧,謝謝!!
用toolsapi
uses toolsapi;
var
ntaservices: intaservices;
_mainmenu: tmainmenu;
_menuitem: tmenuitem;
begin
ntaservices := borlandideservices as intaservices;
_mainmenu := ntaservices.mainmenu;
_menuitem := tmenuitem.create(self);
_menuitem.caption := 'sanmaotuo';
_menuitem.onclick := menuitemclick;
_mainmenu.items.add(_menuitem);
end;
procedure menuitemclick(sender: tobject);
begin
with tsanmaotuoform.create(self) do
show;
end;
有沒有相關資料啊,上面的**好像是要做成dll?
直接加入到包(package)中再compile+install就ok了.很簡單的.
頂馮老弟
我還是不太明白一下**要寫在什麼地方
var
ntaservices: intaservices;
_mainmenu: tmainmenu;
_menuitem: tmenuitem;
begin
ntaservices := borlandideservices as intaservices;
_mainmenu := ntaservices.mainmenu;
_menuitem := tmenuitem.create(self);
_menuitem.caption := 'sanmaotuo';
_menuitem.onclick := menuitemclick;
_mainmenu.items.add(_menuitem);
end;
看來要查查資料了
老馮說的很清楚,新建乙個包,將單元加入,編譯安裝即可
我是安裝了啊,卻不知道,選單在**?
且也不明白這段**是在什麼時候執行到的
ntaservices := borlandideservices as intaservices;
_mainmenu := ntaservices.mainmenu;
_menuitem := tmenuitem.create(self);
_menuitem.caption := 'sanmaotuo';
_menuitem.onclick := menuitemclick;
_mainmenu.items.add(_menuitem);
在initialization部分搞定了
在initialization部分搞定了
----------------------------
好
如果在迴圈中刪除列表中的元素
我們在在討論這個問題之前，先考慮以下 的輸出結果 arraylist list newarraylist arrays.aslist a b c d for int i 0 isize i system.out.println list 輸出結果 b,d 以上 的目的是想遍歷刪除list中所有元素，...
如果在vue中實現乙個輸入框的抖動效果？
1 抖動就是擺動，現實中的鐘擺可以很形象。2 當擺動到臨界點後，就會向相反的方向擺動。3 在沒有動力時，擺動會慢慢停止。start.sync 裡面是抖動器名字 不同name range initjitter this.range 獲取需要操作的的項 和 每次需要擺動的量 const this.get...
Mysql如果在執行事務過程中宕機了怎麼辦？
參考 在innodb的儲存引擎中，事務日誌通過重做 redo 日誌和innodb儲存引擎的日誌緩衝 innodb log buffer 實現。事務開啟時，事務中的操作，都會先寫入儲存引擎的日誌緩衝中，在事務提交之前，這些緩衝的日誌都需要提前重新整理到磁碟上持久化，這就是dba們口中常說的 日誌先行 ...