I mavzu: Axborot haqida tushuncha

procedure TForm1.Yakunlash1Click(Sender: TObject);
begin
Form1.Close;
end;
^{Ikki sonni qo`shish loyihasi</sup>
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
end;
<sup>Ro`yxatga ma`lumot yozish loyihasi}

procedure TForm1.Button3Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit3.Text);
end;
<sup>Ro`yxatni tozalash loyihasi</sup>
procedure TForm1. Button3Click(Sender: TObject);
begin
ListBox1.Items.Clear;
end;
To`rtburchakni mos ravishda qizil, ko`k va yashil ranglarga bo`yash loyihasi


procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Shape1.Brush.Color:=clred;
1: Shape1.Brush.Color:=clblue;
2: Shape1.Brush.Color:=clgreen;
end;
end;
ColorBox1 komponentadan foydalanib ham to`g`ri to`rtburchakni bo`yash mumkin


procedure TForm1.ColorBox1Change(Sender: TObject);
begin
Shape1.Brush.Color:=ColorBox1.Selected;
end;
Gorizontal surgich (TrackBar1 komponentasi) to`g`ri to`rtburchakni kengligini uzgartiradi


procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Shape1.Width:=50+TrackBar1.position;
progressBar1.position:=trunc(Shape1.Height*Shape1.Widthg100);
end;
Vertikal surgich (TrackBar2 komponentasi) to`g`ri to`rtburchakni balandligini o`zgartiradi. progressBar1 komponentasi to`g`ri to`rtburchakni yuzasi o`sishini ko`rsatadi
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
Shape1.Top:k100+TrackBar2.position;