Implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.ScrollBar1Change(Sender: TObject);
begin
Label7.font.color:=RGB(ScrollBar1.Position,0,0);
Label4.caption:=inttostr(ScrollBar1.Position);
end;
procedure TForm2.ScrollBar2Change(Sender: TObject);
begin
Label8.font.color:=RGB(0,ScrollBar2.Position,0);
Label5.caption:=inttostr(ScrollBar2.Position);
end;
procedure TForm2.ScrollBar3Change(Sender: TObject);
begin
Label9.font.color:=RGB(0,0,ScrollBar3.Position);
Label6.caption:=inttostr(ScrollBar3.Position);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Label4.caption:=inttostr(ScrollBar1.Position);
Label5.caption:=inttostr(ScrollBar2.Position);
Label6.caption:=inttostr(ScrollBar3.Position);
ScrollBar1.Hide;
ScrollBar2.Hide;
ScrollBar3.Hide;
Panel1.Hide;
Label1.hide;
Label2.hide;
Label3.hide;
Label4.hide;
Label5.hide;
Label6.hide;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.color:=RGB(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position);
end;
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
ScrollBar1.show;
Label1.show;
Label4.show;
end
else
begin
ScrollBar1.hide;
Label1.hide;
Label4.hide;
end;
end;
procedure TForm2.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then
begin
ScrollBar2.show;
Label2.show;
Label5.show;
end
else
begin
ScrollBar2.hide;
Label2.hide;
Label5.hide;
end;
end;
procedure TForm2.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then
begin
ScrollBar3.show;
Label3.show;
Label6.show;
end
else
begin
ScrollBar3.hide;
Label3.hide;
Label6.hide;
end;
end;
procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Panel1.Show;
1: Panel1.Hide;
end;
end;
end.
Результат работы программы:
При запуске программы появляется следующее окно:
После нажатия кнопки «Управление цветом» появляется дополнительная форма «Form2»:
После выбора определенных параметров цвета в дополнительной форме «Form2»:
После нажатия кнопки изменить цвет в дополнительной форме «Form2» изменяется цвет главной формы:
Выводы: изучили основные свойства и методы, связанные с созданием и активизацией форм.
Лабораторная работа №10 сохранение параметров и установок в ini-файлах
Цель лабораторной работы: Изучить возможности автоматического сохранения параметров и установок, принятых в программе
Задание: Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести на экран числа этой строки в порядке возрастания их значений.
Листинг программы:
unit lab5;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons,IniFiles;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
ComboBox1: TComboBox;
procedure FormCreate(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
procedure ComboBox1KeyPress (Sender: TObject; var Key:char);
procedure FormClose(Sender: TObject; var Action:TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Variable : integer; //Переменная
Form1 : TForm1;
ConfigFile : TIniFile;
InitDir : String;