Tuesday, June 17, 2014
Menampilkan Assisten Pada Halaman Aplikasi Delphi
adanya assistan pada halaman aplikasi tentu akan semakin menjadikan aplikasi yang kita bangun menjadi lebih menarik dan user friendly. assistan yang saya maksud disini adalah sebuah gambar animasi yang dapat menampilkan pesan pertolongan jika dibutuhkan oleh user contohnya pada halaman lembar kerja microsoft office. Jika kita terapkan di delphi berikut contoh demonya.
Contoh diatas menampilkan animasi assisten sebuah warning untuk menutup aplikasi. selain contoh diatas kita juga dapat memodifikasi ataupun mengganti gambar animasi sesuai keinginan kita. Ada duapuluh gambar animasi assisten yang dapat kita gunakan dan tentu saja disediakan secara gratis. component nya pun dapat anda download dan gunakan secara gratis (freeware) cek disini. Jangan lupa untuk mendownload gambar assistennya juga.
Selanjutnya untuk cara install komponennya sama dengan komponen pada umumnya seperti component Alpha Skin atau ZeoSlib Silahkan baca disini. Untuk Implementasinya dapat anda lihat pada contoh Demo pada komponent Office Assistan yang anda donwload. Berikut saya contohkan secara sederhana
1. Pastikan Komponen Office assisten sudah terinstall di delphi. pada contoh ini saya menggunakan Delphi 7
2. Tambahkan sebuah Komponen Assisten, Sebuah komponen Button dan sebuah component opendialog kedalam Form Anda.
3. Klik dua kali Pada Button kemudian tambahkan code berikut
Download Contoh Penggunaan Office Assistan disini.
const
pesan = 'Hallo Saya adalah Asisten Anda';
begin
try
OpenDialog1.FileName := Assistant1.ActorLibrary;
if OpenDialog.Execute and (Assistant1.ActorLibrary <> OpenDialog1.FileName) then
begin
Assistant1.ActorLibrary := OpenDialog1.FileName;
Assistant1.SetPosition((Screen.Width div 6), (Screen.Height div 2));
Assistant1.MsgDlg.Title := 'Assisten';
Assistant1.Visible:=True;
Assistant1.MessageDlg(pesan, mtInformation, [mbOk], 0);
end;
finally
Assistant1.OnGuideOptionsClick := AssistenFile1Click;
end;
end;
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment