![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Пример. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
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
Стандартный интерфейс прикладной программы предусматривает, как правило, стандартное меню. В Windows есть два типа меню: главное и локальное. Главное реализуется компонентом TMainMenu, а локальное – PopupMenu. На форму можно поместить сколь угодно объектов типа меню, отображается же в верхней части формы только одно главное меню, имя которого указывается в свойстве меню главной формы. Компонента TMainMenu относится к не визуальной компоненте. Для создания непосредственно меню в Delphi предусмотрено свойство – дизайнер меню. Чтобы его активизировать, нужно дважды счелкнуть любой клавишей мыши по данной компоненте. Как правило, главное меню содержит строку пунктов, каждый из которых может содержать вложенные (выпадающие) меню. Вначале дизайнер меню обозначает первый пункт меню. Чтобы ввести название этого пункта, необходимо перейти в инспектор объектов и в свойстве Caption набрать имя этого меню. После нажатия клавиши Enter появляется следующий пункт, работа с которым аналогична. Для корректировки созданного меню можно щелкнуть мышью на выбранной опции правой кнопкой. При этом откроется окно, в котором предоставляются возможности Insert и Delete. Вставка осуществляется перед выделенной опцией, а удаляется выбранная опция. Замечание 1. Если после Caption перед названием ввести символ &, то элемент, стоящий за знаком при выполнении программы будет подчеркнут и для данного компонента можно использовать композицию: (Alt)+(буква). 2. Чтобы отделить группу опций меню, следует очередному пункту меню присвоить имени в свойстве Caption символ (-). 3. С каждой подопцией меню, содержащей команду, связано событие 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;
|