Программирование баз данных в 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".