Rekayasa Object2 Delphi

Teknik ini saya temukan waktu malam hari ketika kehabisan ide untuk membuat materi penutup buku saya
yang berjudul "Dahsyatnya Delphi" dengan jumlah Halaman kurang lebih 1300-an halaman.
[/code]


Dimana waktu itu, saya otak-atik konfigurasi dari desain form beserta object-objectnya.

Mungkin anda g kebayang, bahwa tanpa tidak mengeluarkan tenaga yang lebih kita bisa memasukkan
object-object kedalam object-object seperti Button, Edit.

Jika kita ingin memasukkan satu atau beberapa object didalam object Panel, TabSheet, Form,
GroupBox merupakan hal yang mudah saat kita bekerja di design form.

Namun saya sangat yakin kebanyakan orang dalam hal ini adalah programmer delphi
merasa kesusahan untuk memasukkan object-object lain kedalam object Tbutton, Tedit, TLabel dll.

Kita biasanya mampu melakukan hal yang demikian itu hanya ketika program sedang
jalan saja dengan menggunakan prosedur insert object.

Nah, sekarang ada kabar gembira...
Yang pasti ini bagus banget untuk dipelajari

Namun saya menganggap itu sebagai keanehan yang menguatkan.... opo maksudte......kekekekekek]


Baiklah... tanpa basa basi silahkan anda ikuti langkah-langkah berikut ini.

1. Buat Program Aplikasi Baru.
2. Tambahkan object Button1,Label1, label2, label3, bevel1 dan Shape1 kedalam form.
3. Kemudian, silahkan anda Klik-kanan Form-nya.
4. Pilih Item View as Text
5. Ubah Kode programnya menjadi seperti berikut ini

object Form1: TForm1
Left = 365
Top = 244
Width = 367
Height = 176
Caption = 'Develop By Eko Indriyawan'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 48
Width = 315
Height = 65
Caption =
'Cara ini saya temukan ketika saya sedang cari ide membuat topik ' +
'bahasan yang akan dituliskan didalam buku "Dahsyatnya Delphi". D' +
'an sangat menarik untuk dipelajari. Mungkin ini salah satu kelem' +
'ahan yang jadi kekuatan delphi'
Font.Charset = DEFAULT_CHARSET
Font.Color = 117412
Font.Height = -11
Font.Name = 'Verdana'
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
end
object Bevel1: TBevel
Left = 16
Top = 116
Width = 337
Height = 6
Shape = bsTopLine
end
object Label2: TLabel
Left = 16
Top = 120
Width = 27
Height = 13
Caption = 'YM :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 48
Top = 120
Width = 52
Height = 13
Caption = 'eko_elits'
Font.Charset = DEFAULT_CHARSET
Font.Color = 10485760
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Button1: TButton
Left = 16
Top = 16
Width = 97
Height = 25
Caption = 'Proses'
TabOrder = 0
object Shape1: TShape
Left = 7
Top = 7
Width = 18
Height = 12
Brush.Color = clRed
Shape = stCircle
end
end
end


6. Setelah itu silahkan klik kanan dan pilih item View as Form

7. Tuliskan kode program berikut ini dalam event OnMouseDown pada object Button1

procedure TForm1.Button1MouseDown
(
Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer
);
begin
Shape1.Brush.Color := clGreen;
end;


8. Selanjutnya silahkan anda tuliskan kode program berikut ini didalam event OnMouseUp


procedure TForm1.Button1MouseUp
(
Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer
);
begin
Shape1.Brush.Color := clRed;
end;


9. Sekarang silahkan anda tekan tombol CTRL + F9 untuk cek kode program apakah ada yang salah atau tidak.
10. Jika tidak ada masalah atau error, silahkan anda teruskan dengan menekan tombol F9.
10. Tunggu beberapa saat hingga aplikasi jalan.
11. Silahkan anda tekan tombolnya dan tahan.
12. Setelah itu lepaskan..

13. Ulangi langkah 11-12 berkali2.
14. Gimana temen2.... boleh juga untuk dipelajari kan..

15. silahkan anda kembangkan sendiri untuk menggali ide-ide anda.