Setiap aplikasi biasanya dilengkapi dengan about yang merupakan informasi ringkas tentang aplikasi atau credit title dari aplikasi. Untuk membuat form about yang menarik, kamu bisa memanfaatkan komponen-komponen standar Delphi.
Buka kembali project TChart dari artikel terdahulu atau jika tidak punya download TChart Source Code ver.1.9 dan segera ekstrak di komputer kamu.. sebelum membukanya, buat dulu driver ODBC untuk database linked (baca artikel Menampilkan Database dalam Grafik, di bagian awal artikel ini ada tulisan tentang cara membuat driver ODBC). Sesudah itu download About Source Code, ekstrak di komputer kamu dan tambahkan dengan meng-klik kanan mouse pada project TChart.exe, pilih menu Add.. kemudian cari file .pas yang ingin ditambahkan seperti gambar di bawah ini
Untuk memanggilnya melalui form fmMainTChart (unit uMainTChart), klik ganda pada sel di sebelah kanan event OnClick komponen label1.. dan tambahkan kode program seperti ini
procedure TfmMainTChart.Label1Click(Sender: TObject); begin Chart4.BevelOuter:= bvRaised; fmAbout.ShowModal; end;
Jalankan aplikasi dengan menekan tombol Run… jika muncul pesan Form ‘fmMainTChart‘ references form ‘fmAbout’ declarated in unit ‘uAbout’ which is not in your USES list. Do you wish to add it? tekan tombol Yes. Tekan kembali tombol Run..
Ketika form about ini ditampilkan, teks informasi akan bergerak naik per baris sampai baris terakhir setelah itu baris pertama akan dimunculkan lagi demikian seterusnya. Efek ini hanya menggunakan komponen memo Memo1 dan komponen timer Timer1. Tuliskan isi teks about pada property Lines komponen Memo1, kemudian klik ganda komponen Timer1..
procedure TfmAbout.Timer1Timer(Sender: TObject);
begin
Memo1.Top := Memo1.Top-1;
if Memo1.Top = -Memo1.Height then
Memo1.Top := Panel1.Height;
end;
Selama komponen Timer1 dijalankan (aktif) maka posisi atas komponen Memo1 (property Top) secara terus menerus digeser vertikal sebanyak 1 pixel. Dan pada saat posisi atasnya mencapai batas maksimal komponen Memo1 (property Height) maka posisi atasnya akan dikembalikan ke keadaan semula (sama dengan nilai property Height komponen Panel1), demikian seterusnya. Jika teks yang bergerak terlalu lambat/cepat, kamu bisa mengubah nilai property Interval komponen Timer1.
Komponen Timer1 ini akan aktif ketika form about ditampilkan dan tidak aktif ketika form about ditutup. Klik ganda sel di sebelah kanan event OnShow dan OnClose dari form fmAbout..
procedure TfmAbout.FormShow(Sender: TObject); begin Memo1.Top := Panel1.Height; Timer1.Enabled := True; end; procedure TfmAbout.FormClose(Sender: TObject; var Action: TCloseAction); begin Timer1.Enabled := False; end;
Posisi awal komponen Memo1 pada saat form about ditampilkan sama dengan nilai property Height komponen Panel1.
Nuwun..
Daftar download untuk artikel ini:
1. TChart Source Code ver.1.9 - 185.88 kB
2. About Source Code - 12.66 kB
3. TChart Application ver.1.9 - 838.75 kB
