Cara memperpanjang lebar form menggunakan delphi 2010

Cara memperpanjang lebar form menggunakan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Dalam pembuatan program kita kali ini sangat sederhana dan mudah untuk di fahami yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini adapun cara penbuatan program menggunakan delphi antara lain yang pertama buka delphi 2010 kemudianbuar form baru  adapun komponenya yang kita masukan  antara  lain adalah:

4 button

Button 1 caption = panjang name =panjang

Button2 caption = lebar name = lebar

Button3 caption = warna name = warna

Button4 caption = oof name = oof

2 timmer

Timer1,2 caption –

Kemudian klik 2x pada button 1 dan masukan kode seperti di bawah ini

procedure TForm1.PanjangClick(Sender: TObject);

begin

timer1.Enabled:=true;

end;

dan klik 2x pada buton 2 masukan kode juga

procedure TForm1.PanjangClick(Sender: TObject);

begin

timer2.Enabled:=true;

end;

kemidian klik 2x pada timer 1 dan masukan kode seperti di bawah ini

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Form1.Height>1 then

  Form1.Height:=Form1.Height+1;

end;

dan masukan jga kode pada timer 2 klik 2x dan masukan kode seperti di bawah ini

procedure TForm1.Timer2Timer(Sender: TObject);

begin

if Form1.Width>1 then

  Form1.Width:=Form1.Width+1;

end;

dan beri kode juga pada bagian formnya caranya klik 2x pada form dan masukan kode seprti di bawah ini

procedure TForm1.FormCreate(Sender: TObject);

begin

panjang.Caption:='panjang';

Timer1.Enabled:=false;

Timer1.Interval:=100;

Lebar.Caption:='Lebar';

Timer2.Enabled:=false;

Timer2.Interval:=100;

end;
selanjutnya kita membuat perintah stop /of pada button agar panjang dan lebar tidak terus berjalan caranya mudah klik 2x pada 
button 4 atau of f
lalu prosedurnya 

procedure TForm1.off Click(Sender: TObject);

begin
timer1.enabled:= false;
timer2.enabled:=false;
and;

 terus yang terahir jangan lupa masukan tulisan warna di bawahvar  seperti di bawah ini

var

  Form1: TForm1;

  Warna: integer;

Selesai deh program kita kali ini mudahkan karna hanya ada 6 komponen

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717