Материалы сайта
Это интересно
Лабораторная работа №1 по Delphi
Лабораторная работа №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. Внешний вид программы: [pic]