Элементы коллекции CommandBars

   
На этом шаге мы начнем знакомиться с элементами коллекции CommandBars.

   
Рассмотрим свойства коллекции CommandBars. Как и любая коллекция, она содержит типичные свойства и
методы. Свойство Count содержит количество элементов коллекции, метод Add позволяет добавить
новый элемент коллекции (панель элементов управления), метод Item(i) возвращает ссылку на элемент
коллекции. К специфическим свойствам относятся те, которые позволяют задавать режим отображения элементов
коллекции. В таблице 1 представлены свойства и методы коллекции панелей элементов управления.

Таблица 1. Свойства и методы коллекции CommandBars

Свойство или методТипОписание
ActionControlОбъектСсылка на активный в данный момент элемент управления
ActiveMenuBarОбъектСсылка на активный в данный момент элемент меню
AddМетодДобавление элемента коллекции
CountIntegerКоличество элементов коллекции
DisplayTooltipsBooleanTrue - включить подсказку для кнопок
DisplayKeysInTooltipsBooleanTrue - включить в подсказку для кнопок сочетания "горячих" клавиш
FindControlМетодПоиск элемента коллекции
Item(i:integer)ОбъектНабор элементов коллекции
LargeButtonsBooleanПереключение режима отображения больших/маленьких кнопок
MenuAnimationStyleIntegerЭффект при выводе меню
ReleaseFocusМетодОбновление пользовательского интерфейса для всех элементов коллекции

   
Рассмотрим некоторые свойства коллекции CommandBars, например, свойства, определяющие обшие
визуальные характеристики панелей и элементов управления. Свойство LargeButtons коллекции позволяет устанавливать
размеры кнопок на всех панелях (большие или маленькие). Для выбора большого размера кнопок установим значение
этого свойства в True, для выбора малого размера - в False. По умолчанию это свойство имеет значение False.

   
Следующая процедура позволяет задать большой размер для кнопок.

procedure TForm1.CheckBox1Click(Sender: TObject);
//Изменение размера кнопок
begin
  E.CommandBars.LargeButtons:=CheckBox1.Checked;
end;

   
Выполнив данную процедуру, мы получим результат, который представлен на рисунке 1.


Рис.1. Выбраны большие кнопки для панелей управления

   
Другими общими свойствами коллекции CommandBars являются два свойства логического типа, управляющие
режимом подсказок для кнопок панелей. Свойство DisplayTooltips определяет, включена или отключена
всплывающая подсказка. Свойство DisplayKeysInTooltips определяет присутствие в подсказке сочетания
"горячих" клавиш (этот режим в Excel не используется).

   
Изменение отображения режима подсказок определяется установкой этих свойств в определенные состояния, что
можно выполнить в приложении Delphi. Рассмотрим следующую процедуру.

procedure TForm1.CheckBox2Click(Sender: TObject);
//Изменение режима подсказок для кнопок
begin
  E.CommandBars.DisplayTooltips:=CheckBox2.Checked;
end;

   
На рисунке 1 показана форма, использующая данную процедуру, а также главное окно Excel, в котором видна
подсказка для кнопки Открыть.

   
Приведем полный текст приложения.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  E:variant;

procedure TForm1.Button1Click(Sender: TObject);
//Создание объекта Excel и отображение окна
begin
  E:=CreateOleObject('Excel.Application');
  E.Visible:=True;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
//Изменение размера кнопок
begin
  E.CommandBars.LargeButtons:=CheckBox1.Checked;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
//Изменение режима подсказок для кнопок
begin
  E.CommandBars.DisplayTooltips:=CheckBox2.Checked;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
//Отображение в подсказке сочетания клавиш
begin
  E.CommandBars.DisplayKeysInTooltips:=CheckBox3.Checked;
end;

end.

Текст этого приложения можно взять здесь (5,5 Кб).

   
На следующем шаге мы продолжим изучать возможности использования элементов этой коллекции.



Вы можете оставить комментарий, или Трекбэк с вашего сайта.

Оставить комментарий