44879 (Лабораторная работа №1 по Delphi)
Описание файла
Документ из архива "Лабораторная работа №1 по Delphi", который расположен в категории "". Всё это находится в предмете "информатика" из , которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "рефераты, доклады и презентации", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "44879"
Текст из документа "44879"
Лабораторная работа №1.
Цель работы: Изучение методов визуального программирования в Delphi.
Текст программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons;
type
TForm1 = class(TForm)
ScrollBar1: TScrollBar;
ScrollBar2: TScrollBar;
Shape1: TShape;
ColorDialog1: TColorDialog;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
procedure ScrollBar2Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color:=ColorDialog1.Color;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if colorDialog1.Execute then
Shape1.Brush.Color:=ColorDialog1.Color;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Shape1.Shape:=TShapeType(ComboBox1.ItemIndex);
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Shape1.Width:=ScrollBar1.Position*3;
end;
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
Shape1.Height:=Scrollbar2.Position*2;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Close;
end;
end.
Внешний вид программы: