Borland Delphi 7

Anda dapat mempelajari, memahami, mencoba dan melatih penggunaan fasilitas-fasilitas Delphi 7 secara mudah dan cepat sesuai dengan kebutuhan. Dalam penulisan buku ini penulis berusaha memberikan materi dan contoh yang sederhana dan dapat diaplikasikan.Tidaklah mungkin membahas semua fasilitas Delphi 7 dalam buku ini, tetapi penulis membahas hal-hal pokok sehingga setelah menyelesaikan buku ini, pembaca dapat dengan mudah mengembangkannya.

1. 1. Buatlah aplikasi baru, ubah caption dari form menjadi ‘Mencoba Menu’.2. Tambahkan MainMenu, PopUpMenu dan Edit. MainMenu dan PopUpMenu adalah komponen NonVisual, jadi Anda dapat menempatkannya di mana saja.3. Pilih MainMenu dan kita akan membuka Menu Designer. Caranya: • Klik ganda pada komponen menu. • Dari page Properties Object Inspector, pilih Items, lalu klik ganda [Menu} pada kolom isian atau klik tanda (…). Menu Designer ditampilkan dengan item pertama yang kosong dan dipilih. Title bar (menunjukkan property Name dari komponen menu Tempat untuk item menu Gambar 6.1 Menu Designer untuk MainMenu2. Ketikkan &Pilihan. Karakter & dipakai untuk menyatakan shortcut dari menu. Pada tampilan menu, karakter P akan bergaris bawah. Pada saat menjalankan aplikasi, Anda dapat memanggil menu dengan menunjuknya atau tekan Ctrl+P.104
2. Menu Bar (tidak dimiliki PopUpMenu Gambar 6.2 Menu Designer dengan Satu Item3. Lengkapi menu tersebut dengan beberapa item di bawahnya: Edit Warna &Biru Edit Warna &Menu Edit Warna &Hijau4. Di samping kanan item &Pilihan tambahkan &Keluar. Menu lengkapnya sebagai berikut. Gambar 6.3 Menu Lengkap5. Sekarang kita akan mengisikan item pertama (Edit Warna Biru). Klik ganda item tersebut dan Anda akan masuk ke Code Editor dan isikan: Edit1.Color := clBlue;6. Selanjutnya untuk item kedua dan ketiga, masing-masing isikan: 105
3. Edit1.Color := clMenu ; dan Edit1.Color := clLime ;7. Tekan tombol Close untuk mengakhiri main menu.8. Kita akan mengisi PopUpMenu. Dari form, klik ganda pada PopUpMenu, sekali lagi Anda akan masuk ke Menu Designer dan isikan item-item menu berikut. Teks Warna K&uning Teks Warna Me&rah Teks Warna &Default9. Untuk setiap item isikan: Edit1.Font.Color := clYellow ; Edit1.Font.Color := clRed ; Edit1.Font.Color := clWindowText ;10. Terakhir untuk item Keluar, isikan: Application.Terminate ;PopUpMenu1 akan ditampilkan jika Anda mengklik kanan padakomponen Edit1. Untuk menghubungkan kedua komponentersebut, klik Edit1. Dari Object Inspector, pilih propertyPopUpMenu, Anda dapat mengklik anak panah bawah dan pilihPopUpMenu1. Rancangan form: Gambar 6.4 Rancangan Form Aplikasi MenuListing lengkap: unit UMenu1; interface106
4. uses Windows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms, Dialogs, Menus, StdCtrls;type TForm1 = class(TForm) MainMenu1: TMainMenu; PopupMenu1: TPopupMenu; Edit1: TEdit; Pilihan1: TMenuItem; Keluar1: TMenuItem; EditWarnaBiru1: TMenuItem; EditWarnaMerah1: TMenuItem; EditWarnaHijau1: TMenuItem; eksWarnaKuning1: TMenuItem; eksWarnaMErah1: TMenuItem; eksWarnaDefault1: TMenuItem; procedure EditWarnaBiru1Click(Sender: TObject); procedure EditWarnaMerah1Click(Sender: TObject); procedure EditWarnaHijau1Click(Sender: TObject); procedure eksWarnaKuning1Click(Sender: TObject); procedure eksWarnaMErah1Click(Sender: TObject); procedure eksWarnaDefault1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.EditWarnaBiru1Click(Sender: TObject);begin Edit1.Color := clBlue ;end;procedure TForm1.EditWarnaMerah1Click(Sender: TObject);begin Edit1.Color := clRed ;end;procedure TForm1.EditWarnaHijau1Click(Sender: TObject);begin Edit1.Color := clGreen ;end;procedure TForm1.eksWarnaKuning1Click(Sender: TObject);begin Edit1.Font.Color := clYellowend;procedure TForm1.eksWarnaMErah1Click(Sender: TObject);begin Edit1.Font.Color := clRed ; 107
5. end; procedure TForm1.eksWarnaDefault1Click(Sender: TObject); begin Edit1.Font.Color := clWindowText ; end; end.6.2 Membuat SubmenuBeberapa menu aplikasi mempunyai daftar drop-down yangmuncul di samping sebuah item menu, dipakai untuk memberipilihan tambahan (perintah-perintah yang berhubungan). Daftartersebut ditunjukkan oleh sebuah anak panah di sebelah kananitem menu.Cara demikian dapat menghemat tempat secara vertikal. Caramembuat submenu:1. Buka kembali aplikasi menu sebelumnya, dan pilih sebuah item menu, misalnya Edit Warna Biru.2. Klik kanan tombol mouse untuk menampilkan menu lokal (popup menu). Gambar 6.5 Popup menu dari Sebuah Item Menu3. Pilih Create Submenu, akan muncul anak panah kanan dan tempat mengisikan item menu.108
6. Gambar 6.6 Mengisikan Submenu4. Isikan item pertama, yaitu Biru muda. Tekan Enter atau panah bawah untuk item selanjutnya, yaitu Biru tua.6.3 Event OnContextPopupKomponen PopupMenu dapat dihubungkan ke sebuah komponendengan mengatur properti PopupMenu dari komponen tersebut.Cara lain dengan memanggil PopupMenu menggunakan methodPopup. Method ini memerlukan posisi layar untuk menampilkanmenu. Salah satu cara menentukan posisinya adalah denganmengubah posisi lokal dari komponen menjadi posisi layar. Untukitu Anda memerlukan method ClientToScreen, yaitu untukmengubah posisi lokal menjadi posisi layar.Event OnContextPopup terjadi pada saat user mengklik kanantombol mouse pada sebuah kontrol, atau memanggil menu popupdengan keyboard.Untuk mencoba kemampuan-kemampuan tersebut, kita akanmembuat sebuah aplikasi.1. Tambahkan komponen ColorDialog (dari page Dialogs) dan tiga buah Label.2. Tambahkan sebuah PopupMenu dengan sebuah menu, yaitu Warna.3. Tambahkan sebuah PopupMenu lagi, dengan tiga buah menu, yaitu Kiri, Tengah, Kanan. 109
7. 4. Misalnya jika Anda mengklik kanan tombol mouse pada Label1, kita akan menampilkan PopupMenu pertama dengan posisi mouse pada saat diklik. Jadi posisi menu dapat berubah-ubah bergantung pada tempat klik. Untuk itu kita harus mengubah posisi lokal pada Label1 menjadi posisi di layar dengan method ClientToScreen. Buatlah event handler OnMouseDown dari Label1.5. Event handler OnContextPopup dari Label2 akan menampilkan menu Popup yang kedua dengan menam- bahkan dua menu, yaitu garis batas dan informasi waktu. Setelah selesai, kedua menu tambahan akan dihapus. Menu dihapus dengan urutan terbalik, dari yang terakhir dan berjalan mundur.6. Event handler OnContextPopup tidak hanya untuk menampilkan menu popup, tetapi juga dapat melakukan operasi lain. Misalnya untuk menampilkan kotak dialog. Tambahkan OnContextPopup dari Label3 untuk menampilkan kotak dialog.Listing lengkap: unit UMenu2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) ColorDialog1: TColorDialog; Label1: TLabel; Label2: TLabel; Label3: TLabel; PopupMenu1: TPopupMenu; Warna1: TMenuItem; PopupMenu2: TPopupMenu; Kiri1: TMenuItem; Engah1: TMenuItem; Kanan1: TMenuItem; procedure Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);110
8. procedure Label2ContextPopup(Sender: TObject; MousePos:TPoint; var Handled: Boolean); procedure Label3ContextPopup(Sender: TObject; MousePos:TPoint; var Handled: Boolean); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Label1MouseDown(Sender: TObject; Button:TMouseButton; Shift: TShiftState; X, Y: Integer);var PosisiLokal, PosisiLayar : TPoint ;begin if Button = mbRight then begin PosisiLokal.X := X ; PosisiLokal.Y := Y ; PosisiLayar := Label1.ClientToScreen(PosisiLokal) ; PopupMenu1.Popup(PosisiLayar.X, PosisiLayar.Y); end ;end;procedure TForm1.Label2ContextPopup(Sender: TObject; MousePos:TPoint; var Handled: Boolean);var PosisiLayar : TPoint ;begin // menambah menu secara dinamik PopupMenu2.Items.Add(NewLine) ;PopupMenu2.Items.Add(NewItem(TimeToStr(Now),0,False,True,nil,0,)); // menampilkan menu PosisiLayar := ClientToScreen(MousePos) ; PopupMenu2.Popup(PosisiLayar.X, PosisiLayar.Y) ; // menghapus menu tambahan PopupMenu2.Items[4].Free ; PopupMenu2.Items[3].Free ;end;procedure TForm1.Label3ContextPopup(Sender: TObject; MousePos:TPoint; var Handled: Boolean);begin ColorDialog1.Color := Label3.Color ; if ColorDialog1.Execute then Label3.Color :=ColorDialog1.Color ;end;end. 111
9. 6.4 Membuat Item Menu Secara DinamikAnda dapat membuat item-item menu secara dinamik pada saatrun time. Cara ini diperlukan misalnya item-item menu bersifatpengulangan, atau item menu bergantung pada konfigurasi sistemdan user.Dasarnya adalah pemakaian class TMenuItem yang dipakai padakomponen MainMenu dan PopupMenu. Setiap item menumempunyai struktur sama dan bersifat rekursif, artinya sebuahitem menu dapat berisi item-item menu lain sebagai submenunya.Ada dua properti yang penting, yaitu:• Items yang berisi daftar item menu• Count yang berisi banyaknya subitem• RadioItem menyatakan apakah sebuah item menu bersifat mutually exclusive dengan item lain dalam group-nya (artinya, dalam sebuah group hanya satu item yang ditandai)Kita akan membuat aplikasi yang akan membuat menu pull-downsecara dinamik. Item-item menu tersebut menunjukkan ukuranfont dari sebuah Label. Misalnya ukuran-ukuran font yang akanditampilkan di menu adalah 8, 12, 16 dan seterusnya sampai 48.Oleh karena item-item menu menunjukkan pengulangan, kitaakan membuatnya dalam sebuah loop.1. Buatlah aplikasi baru, tambahkan sebuah Label dan sebuah MainMenu.2. Buatlah dua buah menu utama pada komponen MainMenu yaitu File dan Keluar.3. Pada saat form diaktifkan (event OnActivate) akan ditambahkan menu utama Ukuran yang berada setelah menu File. Menu tersebut mempunyai item-item 8, 12, 16 sampai 48, oleh sebab itu dipakai sebuah loop. Setiap item menu mempunyai style RadioItem dan semua item masuk dalam group yang sama, yaitu 1. Event handler OnClick dari setiap item sama, yaitu Proc1 yang dideklarasikan sebagai procedure Private. Pada akhir menu ditambahkan sebuah pilihan, yaitu Lainnya.112
10. 4. Deklarasikan Proc1 di bagian private dari Interface.5. Buatlah Proc1 dengan parameter Sender yang bertipe TObject. Proc1 dipanggil pada saat user memilih menu Ukuran dan procedure ini akan mencari ukuran submenunya yang sesuai dengan ukuran font dari Label1 dan memberi tanda.6. Deklarasikan Proc2 di bagian private dari Interface.7. Buatlah Proc2 dengan parameter Sender yang bertipe TObject. Proc2 dipanggil pada saat user memakai salah satu ukuran dan mengubah ukuran font.Listing lengkap: unit Umenu3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; Label1: TLabel; Keluar1: TMenuItem; File1: TMenuItem; procedure FormActivate(Sender: TObject); private Procedure Proc1(Sender : TObject) ; Procedure Proc2(Sender : TObject) ; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); var PullDown, Item : TMenuItem ; Posisi, i : integer ; begin // Membuat menu pulldown baru PullDown := TMenuItem.Create(Self) ; PullDown.AutoHotkeys := maManual ; PullDown.Caption := Ukuran ; 113
11. PullDown.OnClick := Proc1 ; // menghitung posisi dan menambah Posisi := MainMenu1.Items.IndexOf(File1) ; MainMenu1.Items.Insert(Posisi+1, PullDown) ; // membuat item-item menu I := 8 ; while I <= 48 do begin // membuat item baru Item := TMenuItem.Create(Self) ; Item.Caption := IntToStr(I) ; // Membuatnya sebagai radio item Item.GroupIndex := 1 ; Item.RadioItem := True ; // mengeset OnClick dan menambahkan item menu Item.OnClick := Proc2 ; PullDown.Insert(PullDown.Count,Item); I := I + 4 ; end ; // tambahkan item di akhir Item := TMenuItem.Create(Self) ; Item.Caption := &Lainnya...; Item.GroupIndex := 1 ; Item.RadioItem := True ; PullDown.Insert(PullDown.Count,Item); end; procedure TForm1.Proc1(Sender : TObject); var I : Integer ; Ketemu : Boolean ; begin Ketemu := False ; with Sender as TMenuItem do begin // cara yang cocok, tidak termasuk yang terakhir for I := 0 to Count - 2 do if StrToInt(Items[i].Caption) = Label1.Font.Size then begin Items[i].Checked := True ; Ketemu := True ; System.Break ;; // berhenti end ; if not Ketemu then Items[Count-1].Checked := True ; end ; end ; procedure TForm1.Proc2(Sender : TObject); begin with Sender as TMenuItem do Label1.Font.Size := StrToInt(Caption) ; end ; end.114
12. Gambar 6.7 Menu Dinamik6.5 Menu yang Owner-DrawTeknik owner-draw adalah cara penggambaran sebuah kontrolyang dilakukan oleh pemilik (owner) dari kontrol tersebut.Biasanya ownernya adalah form. Pada komponen menu, Andadapat menyatakan cara ini dengan mengatur properti OwnerDrawmenjadi True. Ada dua event yang berhubungan:• OnMeasureItem terjadi untuk setiap item menu pada saat menu pull-down ditampilkan.• OnDrawItem terjadi pada saat item menu akan digambar ulang. Event ini terjadi pada saat Windows pertama kali menampilkan item dan setiap kali ada perubahan status, misalnya karena mouse bergerak ke sebuah item sehingga item tersebut akan disorot.Untuk mencoba teknik ini, buatlah sebuah aplikasi.1. Tambahkan komponen MainMenu dan ubah properti OwnerDraw=True.2. Tambahkan menu utama Bentuk dengan item-item: Lingkaran, Segiempat, Elips. 115
13. 3. Tambahkan menu utama Warna dengan item-item Merah, Hijau, Biru.4. Tambahkan sebuah Shape dari page Additional.5. Properti Tag dipakai untuk menyimpan nilai integer sebagai bagian dari sebuah komponen. Buatlah event handler OnActivate dari form untuk memberikan nilai integer bagi setiap menu warna.6. Isikan event handler OnMeasureItem dari menu Bentuk. Procedure akan menentukan ukuran setiap item menu.7. Event handler OnDrawItem dari menu Segiempat, Elips akan menentukan warna dan menggambar bentuk yang sesuai pada item menu.8. Jika item menu dari Bentuk diklik, akan digambar bentuk yang sesuai pada form, bukan pada menu.9. Jika menu Warna diklik, akan menentukan warna dari bentuk. Procedure ini akan dipanggil oleh menu Merah, Biru, Hijau. Pilih menu Merah, aktifkan tab Events dari Object Inspector, klik anak panah pada OnClick, ditampilkan procedure- procedure yang sudah ada. Gambar 6.8 Menampilkan Event Handler yang Sudah Ada10. Pilih Warna1Click. Lakukan cara yang sama untuk menu Hijau dan Biru.116
14. 11. Event handler OnDrawItem dari menu Warna akan menen- tukan warna dan menggambar segiempat dengan warna tertentu pada item menu.12. Event handler OnDrawItem dari menu Merah, Biru, Hijau akan mengacu ke procedure yang sudah ada, yaitu Warna1DrawItem. Pilihlah procedure tersebut dari yang sudah ada.13. Isikan event handler OnMeasureItem dari menu Warna. Procedure akan menentukan ukuran setiap item menu.Listing lengkap: unit UODMenu; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus; type TForm1 = class(TForm) MainMenu1: TMainMenu; Bentuk1: TMenuItem; Segiempat1: TMenuItem; Elips1: TMenuItem; Warna1: TMenuItem; Merah1: TMenuItem; Hijau1: TMenuItem; Biru1: TMenuItem; Shape1: TShape; procedure FormActivate(Sender: TObject); procedure Bentuk1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); procedure Segiempat1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); procedure Elips1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); procedure Segiempat1Click(Sender: TObject); procedure Elips1Click(Sender: TObject); procedure Warna1Click(Sender: TObject); procedure Warna1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); procedure Warna1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); private { Private declarations } 117
15. public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); begin Merah1.Tag := clRed ; Biru1.Tag := clBlue ; Hijau1.Tag := clGreen ; end; procedure TForm1.Bentuk1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer); begin Width := 100; Height:= 50 ; end; procedure TForm1.Segiempat1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); begin // mengeset warna background color dan membuat background if Selected then ACanvas.Brush.Color := clHighlight else ACanvas.Brush.Color := clMenu; ACanvas.FillRect (ARect); // menggambar bentuk ACanvas.Brush.Color := clWhite; InflateRect (ARect, -5, -5); ACanvas.Rectangle (ARect.Left, ARect.Top,ARect.Right, ARect.Bottom); end; procedure TForm1.Elips1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); begin // mengeset warna background color dan membuat background if Selected then ACanvas.Brush.Color := clHighlight else ACanvas.Brush.Color := clMenu; ACanvas.FillRect (ARect); // menggambar bentuk ACanvas.Brush.Color := clWhite; InflateRect (ARect, -5, -5); ACanvas.Ellipse(ARect.Left, ARect.Top,ARect.Right, ARect.Bottom); end; procedure TForm1.Segiempat1Click(Sender: TObject); begin Shape1.Shape := stRectangle ; end;118
16. procedure TForm1.Elips1Click(Sender: TObject);begin Shape1.Shape := stEllipse ;end;procedure TForm1.Warna1Click(Sender: TObject);begin Shape1.Brush.Color := (Sender as TComponent).Tagend;procedure TForm1.Warna1DrawItem(Sender: TObject; ACanvas:TCanvas; ARect: TRect; Selected: Boolean);begin // menentukan warna background dan menggambarnya if Selected then ACanvas.Brush.Color := clHighlight else ACanvas.Brush.Color := clMenu; ACanvas.FillRect (ARect); // menampilkan warna ACanvas.Brush.Color := (Sender as TComponent).Tag; InflateRect (ARect, -5, -5); ACanvas.Rectangle (ARect.Left, ARect.Top,ARect.Right,ARect.Bottom);end;procedure TForm1.Warna1MeasureItem(Sender: TObject; ACanvas:TCanvas; var Width, Height: Integer);begin Width := 80 ; Height := 30 ;end;end. Gambar 6.9 Menu Bentuk 119
17. Gambar 6.10 Menu Warna6.6 Frame SederhanaFrame adalah sejenis panel yang dapat dipakai pada saatperancangan aplikasi seperti pada form. Anda dapat membuatsebuah frame, menambahkan komponen-komponen ke dalamnyadan menambahkan event handler-nya. Perbedaan frame denganform adalah frame hanya menempati sebagain area form danframe tidak mempunyai batas tepi sehingga sebaiknya Andamenambahkan komponen Bevel dengan Align=alClient. Setelahframe selesai, Anda dapat membuka sebuah form, memilihkomponen Frame dari page Standard dan memilih sebuah frameyang ada di project yang bersangkutan. Setelah menambahkanframe, Anda akan melihat komponen-komponen dari framedikopikan ke form. Jika Anda mengubah frame aslinya, perubahantersebut juga akan terjadi pada setiap frame yang dipakai padaform.Sebagai contoh pertama kita akan membuat aplikasi yangmemakai satu frame.1. Buat aplikasi baru.2. Tambahkan frame dengan memilih File|New|Frame, ditampilkan frame kosong.3. Frame tidak berbingkai, oleh sebab itu sebaiknya ditambahkan komponen Bevel dari page Additional. Supaya ukuran Bevel=ukuran frame, ubah Align=alClient.120
18. 4. Ke dalam frame, tambahkan Edit, ListBox, dan dua Button, masing-masing dengan nama BTambah, BHapus. Gambar 6.11 Contoh Frame5. Tombol Tambah untuk menambahkan data yang diisikan pada kotak edit ke dalam ListBox. Isikan event handler OnClick.6. Tombol Hapus untuk menghapus data pada ListBox. Isikan event handler OnClick.7. Simpan unit frame tersebut dengan nama Frame1.Listing program frame: unit Frame1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TFrame2 = class(TFrame) Bevel1: TBevel; Edit1: TEdit; ListBox1: TListBox; Btambah: TButton; BHapus: TButton; procedure BtambahClick(Sender: TObject); procedure BHapusClick(Sender: TObject); private { Private declarations } public { Public declarations } end; 121
19. implementation {$R *.dfm} procedure TFrame2.BtambahClick(Sender: TObject); begin If Edit1.Text <> then ListBox1.Items.Add(Edit1.Text) ; end; procedure TFrame2.BHapusClick(Sender: TObject); begin If ListBox1.ItemIndex >=0 then ListBox1.Items.Delete(ListBox1.ItemIndex); end; end.Langkah berikutnya melengkapi form utama.1. Aktifkan form utama. Tambahkan komponen Frame (komponen pertama dari page Standard). Ditampilkan kotak dialog Select Frame to Insert. Gambar 6.12 Kotak Dialog Select Frame to Insert2. Oleh karena hanya ada satu frame, pilih frame tersebut dan klik OK. Di form utama ditampilkan frame beserta semua komponen di dalam frame.122
20. Gambar 6.13 Frame di dalam Form UtamaCoba jalankan aplikasi tersebut. Jadi, apa gunanya frame? Dalamaplikasi tersebut frame hanya digunakan sekali. Frame akansangat berguna jika kita gunakan berulang kali, karena kita tidakperlu mendefinisikan sebuah komponen beserta event handler-nyaberulang kali. Ubahlah aplikasi tersebut.1. Tambahkan sebuah frame lagi ke dalam aplikasi.2. Tambahkan dua buah SpeedButton dari page Additional. Isikan properti Glyph dengan salah satu file gambar yang ada di direktori ..Common FilesBorland SharedImagesButton. Gambar 6.14 Form dengan Dua Instance dari Frame3. Tombol panah kiri untuk mengkopikan data dari frame pertama ke frame kedua. Sebaliknya, fungsi dari tombol panah kanan. Isikan event handler OnClick dari kedua tombol. 123
21. Listing form utama: unit UFrame1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Frame1, Buttons; type TForm1 = class(TForm) Frame21: TFrame2; Frame22: TFrame2; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.SpeedButton1Click(Sender: TObject); begin Frame22.ListBox1.Items.AddStrings(Frame21.ListBox1.Items); end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin Frame21.ListBox1.Items.AddStrings(Frame22.ListBox1.Items); end; end. Gambar 6.15 Dua Frame dalam Sebuah Form124
22. 6.7 Frame BersarangFrame dapat bersarang, artinya frame di dalam frame lain.Langkah-langkah membuat frame dalam:1. Buatlah aplikasi baru. Tambahkan sebuah frame dan beri nama FDalam.2. Tambahkan Bevcl dengan Align=alClient.3. Tambahkan DBImage dan DBMemo dari page Data Controls.4. Simpan dengan nama FDalam.pas. Gambar 6.16 Frame DalamLangkah selanjutnya membuat frame luar yang berisi frame dalam:1. Tambahkan sebuah frame dan beri nama FLuar.2. Tambahkan Bevcl dengan Align=alClient.3. Tambahkan komponen Table dari page BDE. Isi DatabaseName= DBDEMOS.4. Tambahkan DataSource dari page DataAccess. Isi DataSet=Table1.5. Tambahkan DBGrid dan DBNavigator dari page Data Controls. Isi properti DataSource dari kedua komponen tersebut dengan DataSource1.6. Tambahkan komponen Frame dan pilih FDalam. Atur posisinya sehingga seperti pada Gambar 6.17.7. Simpan dengan nama UFLuar.pas. 125
23. Gambar 6.17 Frame LuarTahap terakhir melengkapi form utama.1. Tambahkan komponen Frame dan pilih FLuar.2. Isikan event handler OnCreate dari form. Procedure akan mengisikan nama tabel pada komponen Table dan mengisikan properti DataSource dan DataField dari komponen DBMemo dan DBImage.Listing form utama: unit UFBersarang; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, UFLuar, StdCtrls; type TForm1 = class(TForm) FLuar1: TFLuar; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation126
24. uses UFDalam; {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin with FLuar1 do begin Table1.TableName := BioLife; with FDalam1 do begin DBMemo1.DataSource := Datasource1; DBMemo1.DataField := Notes; DBImage1.DataSource := Datasource1; DBImage1.DataField := Graphic; end; Table1.Open; end ; end; end. Gambar 6.18 Frame Bersarang6.8 Membuang FramePada contoh di atas kita memakai tabel Biolife yang mempunyaifield bertipe Graphic dan Memo. Bagaimana jika tabel yangdipakai tidak mempunyai kedua field tersebut? Jadi, komponenDBImage dan DBMemo tidak diperlukan. Dalam hal ini, Andadapat membuang frame dalam dengan method Free. Coba Andaubah procedure OnCreate dari form utama menjadi seperti berikut. 127
25. procedure TForm1.FormCreate(Sender: TObject); begin with FLuar1 do begin Table1.TableName := Customer; FDalam1.Free ; Table1.Open ; end ; end; Gambar 6.19 Frame Dalam Dibuang6.9 Frame Master DetilHubungan master detil dalam database adalah satu record padatabel induk berhubungan dengan beberapa record di dalam tabelanak. Untuk menampilkan hubungan tersebut, diperlukan duaTable, dua DataSource dan dua DBGrid. Untuk mempermudah,Anda dapat memakai frame.1. Buatlah aplikasi baru dan buatlah frame dengan nama FData.2. Ke dalam frame tambahkan Bevel yang alClient, Table dengan DatabaseName=DBDEMOS, DataSource dan hubungkan ke komponen Table, serta DBGrid yang dihubungkan ke DataSource.3. Simpan dengan nama UFData.pas.128
26. 4. Kembali ke form utama. Tambahkan dua frame dari jenis yang sama.5. Tambahkan event handler OnCreate dari form untuk menyatakan nama tabel di setiap frame dan meng- hubungkannya.Listing lengkap form utama: unit UFMasterDetil; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, UFData; type TForm1 = class(TForm) FData1: TFData; FData2: TFData; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin with FData1 do begin Table1.TableName := Customer; Table1.Open ; end ; with FData2 do begin Table1.TableName := Orders; Table1.MasterSource := FData1.DataSource1 ; Table1.IndexName := CustNo ; Table1.MasterFields := CustNo ; Table1.Open ; end ; end; end. 129