Программирование баз данных в Delphi 7: Создадим справочник товаров. Часть 1 (ImageIndex,
TActionList, Action).
Продолжим писать программу складского учета.
Для начала добавим в меню новые пункты. Помните, как это делается? Если забыли,
напомню, щелкаем по размещенному на форме компоненту TMainMenu,
у нас он называется mmMainMenu*.

У нас откроется редактирование меню, куда мы
и вставим нужные нам пункты*:

Пункту меню "Справочники" мы присвоим имя
ListsItem, а "Товары" - WaresListItem.
Теперь на панель инструментов добавим новую
кнопочку. Щелкнем по ней правой кнопкой мыши и выберем пункт меню "New
Button"*:

Свойству MenuItem
добавленной кнопки присвоим значение WaresListItem. Саму кнопку назовем
tblWares.
Что бы отделить ее от
других, добавим сепаратор*:

а затем перетащим его в нужное место*:

Теперь пришло время соединить кнопочку с
пунктом меню. Для этого щелкнем по компоненту TActionList*:

У нас откроется окно, в котором мы добавим
новое действие*:

Присвоим ему имя acWraesList, а свойство
Caption - "Товары". А затем свяжем это действие с кнопкой
и пунктом меню "Товары" через свойство action.
Теперь сделаем там, что бы кнопка была с
картинкой. Для этого картинку добавим в ImageList*:

Щелкнем на него, что бы открыть диалог
управления списком картинок*.

И, наконец, через свойство ImageIndex
свяжем добавленную картинку с действитем (TActionList)*:

А теперь пишем обработчик события
OnExecute действия acWaresList:
procedure TfrmStoreForm.acWaresListExecute(Sender: TObject);
var SessionParams:TStringList; i:integer;
begin
SessionParams:=TStringList.Create;
sSession.GetAliasParams('StorePrj',SessionParams);
for i:=0 to SessionParams.Count-1 do
if Pos('PATH',SessionParams[i])>0 then
begin
CreateMDIChild(copy(SessionParams[i],6,Length(SessionParams[i])-5)+'/wares.db');
break;
end;
end;
|
Скриншоты, помеченные знаком * ,
являются цитатами и иллюстрациями
программного продукта "Delphi", авторское
право на который принадлежит "Borland Software
Corporation".
|