CreateToolbarEx

← →
SPeller © (2002-07-24 19:08) [0]

Всем доброго времени суток! Не доскажете ли пример создания тулбара через CreateToolbarEx. А то я пытался но не вышло. Вот как делал:
(ради примера хотел сделать с одной кнопкой)

var t:ttbbutton; hbm:longint; hbm:=LoadImage(0,"C:\Img\Open.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE); t.iBitmap:=0; t.idCommand:=2; t.fsState:=0; t.fsStyle:=TBSTYLE_BUTTON; t.bReserved[1]:=0; t.bReserved[2]:=0; t.dwData:=5; t.iString:=0; htb:=CreateToolbarEx(Form.Handle,WS_CHILD or WS_VISIBLE or TBSTYLE_ALTDRAG,0,1,0,hbm,@t,1,20,20,16,16,sizeof(t));

Чего здесь не хватает?

← →
Eugene Lachinov © (2002-07-24 19:37) [1]

Если проблема в том, что кнопка не нажималась
t.fsState:=TBSTATE_ENABLED;

← →
SPeller © (2002-07-25 05:34) [2]

Нет, проблема была в том, что тулбар вообще не создавался, переменная htb после вызова функции обращалась в 0, что говорит что в параметрах что-то не так.

← →
Eugene Lachinov © (2002-07-25 08:48) [3]

>SPeller
У меня все создалось и показалось, правда, на Windows 2000, в какой момент выполнялся этот код, я пробовал по нажатию кнопки.

← →
SPeller © (2002-07-25 13:59) [4]

Действительно, на кнопке работает. Я писал на KOL и в обработчике FormCreate оно не хотело создаваться. Тперь другой вопрос: как сделать плоские кнопки?

← →
Eugene Lachinov © (2002-07-25 14:19) [5]

Наверно, добавить стиль TBSTYLE_FLAT к TBSTYLE_ALTDRAG

Блин, ну почему в хелпе нет этих констант?

Тут вот ещё гемор: пытаюсь сделать несколько кнопок - не выходит:

procedure TForm1.Button1Click(Sender: TObject); var t:array[0..4] of ttbbutton; begin hbm:=LoadImage(0,"C:\UniTest\Img\Open.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE); t[0].iBitmap:=0; t[0].idCommand:=2; t[0].fsState:=TBSTATE_ENABLED; t[0].fsStyle:=TBSTYLE_BUTTON; t[0].bReserved[1]:=0; t[0].bReserved[2]:=0; t[0].dwData:=5; t[0].iString:=0; t[1].iBitmap:=0; t[1].idCommand:=3; t[1].fsState:=TBSTATE_ENABLED; t[1].fsStyle:=TBSTYLE_BUTTON; t[1].bReserved[1]:=0; t[1].bReserved[2]:=0; t[1].dwData:=6; t[1].iString:=0; t[2].iBitmap:=0; t[2].idCommand:=4; t[2].fsState:=TBSTATE_ENABLED; t[2].fsStyle:=TBSTYLE_BUTTON; t[2].bReserved[1]:=0; t[2].bReserved[2]:=0; t[2].dwData:=7; t[2].iString:=0; t[3].iBitmap:=0; t[3].idCommand:=5; t[3].fsState:=TBSTATE_ENABLED; t[3].fsStyle:=TBSTYLE_SEP; t[3].bReserved[1]:=0; t[3].bReserved[2]:=0; t[3].dwData:=8; t[3].iString:=0; t[4].iBitmap:=0; t[4].idCommand:=6; t[4].fsState:=TBSTATE_ENABLED; t[4].fsStyle:=TBSTYLE_BUTTON; t[4].bReserved[1]:=0; t[4].bReserved[2]:=0; t[4].dwData:=9; t[4].iString:=0; htb:=CreateToolbarEx(Form1.Handle,TBSTYLE_FLAT or WS_VISIBLE or WS_CHILD,0,1,0,hbm,@t[0],5,17,17,16,16,sizeof(t)); button1.Enabled:=false; end;

Вылазит ексепшин. Где грабли? Помогите пожалуйста!

htb:=CreateToolbarEx(Form1.Handle,TBSTYLE_FLAT or WS_VISIBLE or WS_CHILD,0,1,0,hbm,@t[0],5,17,17,16,16,sizeof(ttbbutton));

Спасибо. Скоро ещё приду :-)))

CreateToolbarEx Найти похожие ветки