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