Menggunakan Frame

Frame bisa dikatakan sama dengan form. Perbedaannya adalah, frame melekat pada kontainernya. Jika Anda pernah membuat form pada Java, Anda pasti lebih mudah memahaminya. Karena frame sama dengan kontainer, maka bisa saja Anda menggunakan frame sebagai pengganti form.

Cara membuat frame:

1. Buat aplikasi baru. Pada Delphi 7. Pilih menu File/New/Application
   
   
   
2. Beri dua panel  dan dua tombol seperti gambar berikut:
   
   
   
3. Buat dua frame, dengan memilih Menu File-Frame
   
   
   
   
   Sekarang kita mempunyai 2 frame bernama Frame2 dan Frame3
4. Daftarkan Frame2 dan Frame 3 di Form utama
   
   implementation
   
   uses Unit2, Unit3;
   
5. Buat variabel class frmData untuk menerima instan class TFrame pada bagian private
   
     private
              frmData : TFrame;
   
6. Isi Click pada button1 seperti berikut:
   
       if frmData <> Nil then frmData.Free;
   
       frmData :=  TFrame2.Create(Panel2);
       frmData.Align := alClient;
       frmData.Parent := panel2;
   
7. Isi Click pada button2 seperti berikut:
   
       if frmData <> Nil then frmData.Free;
   
       frmData :=  TFrame3.Create(Panel2);
       frmData.Align := alClient;
       frmData.Parent := panel2;
   
8. Selesai. Sekarang praktekkan dengan meng-klik tombol 1 atau tombol 2
   
   

Program selengkapnya: 

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private frmData : TFrame; public { Public declarations } end; var Form1: TForm1; implementation uses Unit2, Unit3; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if frmData <> Nil then frmData.Free; frmData := TFrame2.Create(Panel2); frmData.Align := alClient; frmData.Parent := panel2; end; procedure TForm1.Button2Click(Sender: TObject); begin if frmData <> Nil then frmData.Free; frmData := TFrame3.Create(Panel2); frmData.Align := alClient; frmData.Parent := panel2; end; end.

Menggunakan Frame 2015-07-07T14:27:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer