Ini adalah contoh sederhana bagaimana menampilkan banyak rectangles dari berbagai macam warna, bentuk dan ukuran pada sebuah form yang di-maximized saat keadaan aktif. Yang menjadi pertanyaan pertama mungkin bagaimana menampilkan banyak rectangles dari berbagai macam warna bentuk dan ukuran??? Jawabannya tentu saja menerapkan fungsi random pada code-nya, dan TTimercomponent pada form tersebut. event handlers(penanganan kejadian) yang digunakan pun hanya 2, yaitu OnTimer pada TTimer dan OnActivate pada form...
gimana?penasaran kan... Nie Source code Komplitnya...
type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
var X, Y: Integer; // variabel x dan y adalah integer..
//saat form dalam keadaan aktif maka............. procedure TForm1.FormActivate(Sender: TObject); begin WindowState := wsMaximized; //Ukuran form jadi maksimal Timer1.Interval := 50; //TTimer intervalnya jadiin 50 Randomize; // prosedure sistem acak.... end;
// prosedurnya TTimer.. OnTimer... procedure TForm1.Timer1Timer(Sender: TObject); begin // mengacak lebar layar pada variabel x X := Random(Screen.Width - 10);
// mengacak panjang layar pada variabel y Y := Random(Screen.Height - 10);
Canvas.Pen.Color := Random(65535); // sistem acak diset 65535 case Random(5) of 0: Canvas.Pen.Style := psSolid; 1: Canvas.Pen.Style := psDash; 2: Canvas.Pen.Style := psDot; 3: Canvas.Pen.Style := psDashDot; 4: Canvas.Pen.Style := psDashDotDot; end; // terakhir adalah nyiptain ractangle secara acak Canvas.Rectangle(X, Y, X + Random(400), Y + Random(400)); end;
end.
saat dijalannin hasilnya liat sendiri ya... ^.^V
HMmmm... n Buat sekedar info aja, source code diatas dapet dari iseng2 buka menu delphi help. so code-nya juga bisa di copy paste dari IDE delphi - delphi help yang ada di komputer kamu.. cari aja dari index delphi help, trus ketik rectangle.. trus pilih yang rectangle example.... Jreeenkk.. sama deh...
Nie Source code Komplitnya...
