delhpi7 program menghitung luas segi empat

asalamualaikum wr wb
selamat pagi kawan bloger semua ,,di pagi yang cerah ini saya mao ngeshare ni
tentang software sederhana yang di buat di delphi 7
 ini coking dan SS.y

procedure TForm1.FormCreate(Sender: TObject);
begin
scrollbar1.Min:=0;
scrollbar1.Max:=100000;
scrollbar1.SmallChange:=1;
scrollbar1.LargeChange:=1000;
scrollbar2.Min:=0;
scrollbar2.Max:=100000;
scrollbar2.SmallChange:=1;
scrollbar2.LargeChange:=1000;
scrollbar1.OnChange:=scrollbar2.OnChange;
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
edit1.Text:=format('%18.2n',[scrollbar1.Position/100]);
edit2.Text:=format('%18.2n',[scrollbar2.position/100]);
edit3.Text:=format('%18.2n',[scrollbar1.Position/100*scrollbar2.Position/100]);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;






dan
yang di butuhkan hanya
2 buah scrollbar
3 edit
1 button

dan yang mao silahkan download di bahwah
ini







Download