str:string;
tbb:array[0..2] of TTBBUTTON;
tbab:TBADDBITMAP;ToolBar由下面的函数所创建
CreateToolBarEx(aparent,WS_CHILD or TBSTYLE_TOOLTIPS or CCS_ADJUSTABLE,1000,0,0,IDB_STD_SMALL_COLOR ,0,0,16,16,0,0,SizeOf(TTBBUTTON)); str:='A'#0'B'#0'C'#0#0;
bmp:=TBitmap.Create;
bmp.LoadFromFile('c:\tool.bmp');
bmp.Mask(RGB(255,0,255));
tbab.hInst:=0;
tbab.nID:=bmp.Handle; tbb[0].fsState := TBSTATE_ENABLED;
tbb[0].fsStyle := TBSTYLE_BUTTON;
tbb[0].dwData := 0;
tbb[0].iString :=0;
tbb[0].iBitmap:=0;
tbb[0].idCommand:=0; tbb[1].fsState := TBSTATE_ENABLED;
tbb[1].fsStyle := TBSTYLE_CHECK ;
tbb[1].dwData := 0;
tbb[1].iString := 1;
tbb[1].iBitmap:=1;
tbb[1].idCommand:=1; tbb[2].fsState := TBSTATE_ENABLED;
tbb[2].fsStyle :=TBSTYLE_BUTTON;
tbb[2].dwData := 0;
tbb[2].iString := 2;
tbb[2].iBitmap:=2;
tbb[2].idCommand:=2; SendMessage(handle, TB_ADDBUTTONS,3,integer(@tbb));
SendMessage(handle, TB_ADDSTRING,0,Integer(str));
SendMessage(handle, TB_ADDBITMAP,3,integer(@tbab));问题:此时标题位于图标的下面,如何发送消息使得标题位于
图标的右边?????????????、、、、
tbb:array[0..2] of TTBBUTTON;
tbab:TBADDBITMAP;ToolBar由下面的函数所创建
CreateToolBarEx(aparent,WS_CHILD or TBSTYLE_TOOLTIPS or CCS_ADJUSTABLE,1000,0,0,IDB_STD_SMALL_COLOR ,0,0,16,16,0,0,SizeOf(TTBBUTTON)); str:='A'#0'B'#0'C'#0#0;
bmp:=TBitmap.Create;
bmp.LoadFromFile('c:\tool.bmp');
bmp.Mask(RGB(255,0,255));
tbab.hInst:=0;
tbab.nID:=bmp.Handle; tbb[0].fsState := TBSTATE_ENABLED;
tbb[0].fsStyle := TBSTYLE_BUTTON;
tbb[0].dwData := 0;
tbb[0].iString :=0;
tbb[0].iBitmap:=0;
tbb[0].idCommand:=0; tbb[1].fsState := TBSTATE_ENABLED;
tbb[1].fsStyle := TBSTYLE_CHECK ;
tbb[1].dwData := 0;
tbb[1].iString := 1;
tbb[1].iBitmap:=1;
tbb[1].idCommand:=1; tbb[2].fsState := TBSTATE_ENABLED;
tbb[2].fsStyle :=TBSTYLE_BUTTON;
tbb[2].dwData := 0;
tbb[2].iString := 2;
tbb[2].iBitmap:=2;
tbb[2].idCommand:=2; SendMessage(handle, TB_ADDBUTTONS,3,integer(@tbb));
SendMessage(handle, TB_ADDSTRING,0,Integer(str));
SendMessage(handle, TB_ADDBITMAP,3,integer(@tbab));问题:此时标题位于图标的下面,如何发送消息使得标题位于
图标的右边?????????????、、、、
我的ToolBar是动态创建的,没有List这一个属性.
Thank you all the same!
CreateToolBarEx(aparent,TBSTYLE_LIST or WS_CHILD or TBSTYLE_TOOLTIPS or CCS_ADJUSTABLE,1000,0,0,IDB_STD_SMALL_COLOR ,0,0,16,16,0,0,SizeOf(TTBBUTTON));
CreateToolBarEx(aparent,TBSTYLE_LIST or WS_CHILD or TBSTYLE_TOOLTIPS or CCS_ADJUSTABLE,1000,0,0,IDB_STD_SMALL_COLOR ,0,0,16,16,0,0,SizeOf(TTBBUTTON));
经过我的测试,完全正确!
100分附上