Программирование - это просто
Advertisement
Главная arrow Уроки программирования arrow Delphi - это просто! arrow Урок 8.5.1. БД в Delphi 7: Создадим справочник товаров. Часть 1 (ImageIndex, TActionList, Action)
06.07.2022 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Урок 8.5.1. БД в Delphi 7: Создадим справочник товаров. Часть 1 (ImageIndex, TActionList, Action) Печать E-mail
Автор megabax   
06.09.2009 г.

Программирование баз данных в Delphi 7: Создадим справочник товаров. Часть 1 (ImageIndex, TActionList, Action).

Продолжим писать программу складского учета. Для начала добавим в меню новые пункты. Помните, как это делается? Если забыли, напомню, щелкаем по размещенному на форме компоненту TMainMenu, у нас он называется mmMainMenu*.

Delphi 7: ImageIndex, TActionList, Action

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

Delphi 7: ImageIndex, TActionList, Action

Пункту меню "Справочники" мы присвоим имя ListsItem, а "Товары" - WaresListItem.

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

Delphi 7: ImageIndex, TActionList, Action

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

Delphi 7: ImageIndex, TActionList, Action

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

Delphi 7: ImageIndex, TActionList, Action

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

Delphi 7: ImageIndex, TActionList, Action

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

Delphi 7: ImageIndex, TActionList, Action

 

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

Теперь сделаем там, что бы кнопка была с картинкой. Для этого картинку добавим в ImageList*:

Delphi 7: ImageIndex, TActionList, Action

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

Delphi 7: ImageIndex, TActionList, Action

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

Delphi 7: ImageIndex, TActionList, Action

А теперь пишем обработчик события 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".


 

Последнее обновление ( 06.11.2011 г. )
 
« След.   Пред. »
 
© 2022 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги