Пример. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

ScrollBar1: TScrollBar;

Panel2: TPanel;

Label1: TLabel;

Button1: TButton;

procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ScrollBar1Change(Sender: TObject);

private

Color: TColor;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);

begin

Panel2.Color: = ScrollBar1.Position;

Label1.Font.Color: = ScrollBar1.Position;

Label1.Caption: = IntToStr(ScrollBar1.Position);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Label1.AutoSize: = false;

Label1.Alignment: = taCenter;

Label1.Color: = clYellow;

ScrollBar1.Min: = 1;

ScrollBar1.Max: = 255;

ScrollBar1.SmallChange: = 1;

ScrollBar1.LargeChange: = 10;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ScrollBar1.SetParams(200, 1, 255);

Panel2.Color: = ScrollBar1.Position;

Label1.Font.Color: = ScrollBar1.Position;

Label1.Caption: = IntToStr(ScrollBar1.Position);

end;

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

Panel1.Color: =ScrollBar1.Position;

end;

end

Компонент TMainMenu

TMainMenu

Стандартный интерфейс прикладной программы предусматривает, как правило, стандартное меню. В Windows есть два типа меню: главное и локальное. Главное реализуется компонентом TMainMenu, а локальное – PopupMenu.

На форму можно поместить сколь угодно объектов типа меню, отображается же в верхней части формы только одно главное меню, имя которого указывается в свойстве меню главной формы.

Компонента TMainMenu относится к не визуальной компоненте. Для создания непосредственно меню в Delphi предусмотрено свойство – дизайнер меню. Чтобы его активизировать, нужно дважды счелкнуть любой клавишей мыши по данной компоненте.

Как правило, главное меню содержит строку пунктов, каждый из которых может содержать вложенные (выпадающие) меню. Вначале дизайнер меню обозначает первый пункт меню. Чтобы ввести название этого пункта, необходимо перейти в инспектор объектов и в свойстве Caption набрать имя этого меню. После нажатия клавиши Enter появляется следующий пункт, работа с которым аналогична.

Для корректировки созданного меню можно щелкнуть мышью на выбранной опции правой кнопкой. При этом откроется окно, в котором предоставляются возможности Insert и Delete. Вставка осуществляется перед выделенной опцией, а удаляется выбранная опция.

Замечание

1. Если после Caption перед названием ввести символ &, то элемент, стоящий за знаком при выполнении программы будет подчеркнут и для данного компонента можно использовать композицию: (Alt)+(буква).

2. Чтобы отделить группу опций меню, следует очередному пункту меню присвоить имени в свойстве Caption символ (-).

3. Для создания разветвленных меню следует щелкнуть правой кнопкой мыши на данный код опции. При этом появляется локальное меню. В котором необходимо выбрать команду CreatSubmenu. При этом та подопция, которая содержит ссылку на подчиненное меню, имеет значок.

С каждой подопцией меню, содержащей команду, связано событие OnClick.

Пример

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

File1: TMenuItem;

Edit1: TMenuItem;

Tools1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Info1: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Info1Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

a, b, c: real;

{ Private declarations }

public

{ Public declarations }

end;

Var

Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.DFM}

procedure TForm1.N1Click(Sender: TObject);

begin

Form2.ShowModal;

end;

//Чтобы форма2 была диалоговым окном при ее создании

//в инспекторе объектов необходимо присвоить свойству BorderStyle: = Dialogs;

//Тогда эта форма не имеет никаких кнопок и является //диалоговым окном.

procedure TForm1.N2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

c: = a + b;

PostProcessor1.Enabled: = true;

end;