最近查詢一下網很少有這方面的資料，所以自己就學習一下，順便記錄下來。效果如下圖所示：
**如下所示：
unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, dxbar;
type
tform1 = class(tform)
dxbarmanager1: tdxbarmanager;
dxbarpopupmenu1: tdxbarpopupmenu;
button1: tbutton;
dxbrgrp1: tdxbargroup;
dxbrbtn1: tdxbarbutton;
procedure formmousedown(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
procedure button1click(sender: tobject);
private
public
end;
varform1: tform1;
implementation
procedure tform1.formmousedown(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
begin
if button = mbright then
dxbarpopupmenu1.popupfromcursorpos;
end;
procedure tform1.button1click(sender: tobject);
var_button0:tdxbarbutton;
_button1 :tdxbarbutton;
_button2 :tdxbarbutton;
_subitem :tdxbarsubitem;
_itemlink :tdxbaritemlink;
begin
_button0 := tdxbarbutton.create(dxbarpopupmenu1);
_button1 := tdxbarbutton.create(dxbarpopupmenu1);
_button2 := tdxbarbutton.create(dxbarpopupmenu1);
_button0.caption := 'setsystem';
_button0.visible := ivalways;
_button1.caption := 'setpicture';
_button1.visible := ivalways;
_button2.caption := 'setcaption';
_button2.visible := ivalways;
//方法2
dxbarpopupmenu1.itemlinks.add.item := _button0;
//增加乙個按鈕 end
//增加子選單，也有兩種方法
_subitem := tdxbarsubitem.create(dxbarpopupmenu1);
dxbarpopupmenu1.itemlinks.add.item := _subitem;
//增加子選單 end
_subitem.caption := 'subitems';
_subitem.itemlinks.add.item := _button1;
_subitem.itemlinks.add.item := _button2;
end;
end.
動態載入動態庫
message函式的宣告你應該知道吧，把它的宣告和下面的語句寫到乙個標頭檔案中 pragma comment lib,a.lib 然後你的對話方塊.cpp中包含這個標頭檔案就可以使用message函式了。如果dll沒有對應的.lib檔案，那麼就只能使用動態載入的方式了。動態呼叫動態庫步驟 1 建立乙...
動態庫呼叫方式 動態載入 靜態載入
問題 我有個a.dll庫,我想在我的mfc對話方塊專案中呼叫a.dll中的message函式，怎樣靜態載入dll或者動態載入dll 並呼叫？回答 靜態載入 動態載入 如果dll沒有對應的.lib檔案，那麼就只能使用動態載入的方式了。動態呼叫動態庫步驟 1 建立乙個函式指標，其指標資料型別要與呼叫的d...
python非同步載入和動態 Vue動態載入非同步元件
背景 目前我們專案都是按元件劃分的，然後各個元件之間封裝成產品。目前都是採用iframe直接巢狀頁面。專案中我們還是會碰到一些通用的元件跟業務之間有通訊，這種情況下iframe並不是最好的選擇，iframe存在跨域的問題，當然是postmessage還是可以通訊的，但也並非是最好的。目前有這麼乙個場...