Tips & trik seputar hint

Hint adalah teks yang muncul saat pointer mouse melewati suatu obyek (bi sa berupa button, form, list box, dll). Defaultnya hint tersebut tampil selama 2,5 detik. Tapi dengan menambahkan sedikit kode Delphi di bawah ini, Anda dapat mengganti waktu tersebut, bisa lebih cepat atau lebih lama.
Mengganti lama tampilnya hint
procedure TForm1.Button1Click(Sender: TObject);
begin
  //default = 2500 ms = 2,5 detik
  Application.HintHidePause := 10000 //10 detik;
end;

Membuat hint dua baris :
Button1.Hint := 'Baris 1'#13#10'Baris 2';

Membuat splash screen

Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi.
Untuk membuat splash scren tersebut caranya sebagai berikut :

1. Bikin dulu form utamanya.
2. Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash.
3. Tambahkan komponen Timer (terletak pada tab Win32), beri nama dengan tmMainTimer.
4. Tambahkan kode berikut pada events onTimer dari komponen Timer tersebut :
   
   tmMainTimer.Enabled := False;
   
   
5. Dari menu Project, pilih Options.
6. Pindah ke tab Forms.
7. Dari bagian auto create forms akan terlihat dua buah form. Pilih Form yang akan digunakan sebagai splash screen dan klik tombol ">" untuk memindah form splash screen ke bagian Available forms.
8. Kalau sudah klik OK.
9. Sekarang dari menu View, pilih Project Source. Pada program utama buatlah form splash screen sebelum inisialisasi dilakukan.

Untuk lebih jelasnya lihat potongan program berikut ini :
program Project1;
uses Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {FrmSplash};
{$R *.RES}
begin
     FrmSplash := TFrmSplash.Create(Application);
     FrmSplash.Show;
     FrmSplash.Update;
     while FrmSplash.tmMainTimer.Enabled do      Application.ProcessMessages;
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     FrmSplash.Hide;
     FrmSplash.Free; // menghapus form splash scren dr memory
     Application.Run;
end.
Download Contoh

Menambahkan fasilitas skin pada aplikasi dengan SXSkinComponents

Mungkin Anda semua sudah sering melihat aplikasi yang menggunakan konsep skin, misalnya Win Amp, WindowBlind, dll. Dengan konsep skin, maka user dapat dengan mudah mengganti tampilan programnya.
Mungkin saja Anda terinspirasi untuk membuat program yang dilengkapi dengan fasilitas skin. Bagaimana caranya? Cara yang paling mudah adalah dengan menggunakan komponen. Salah satu yang cukup menarik dan bisa Anda coba adalah SXSkinComponents.
SXSkinComponents dapat digunakan untuk Delphi 6, Delphi 7, Delphi 2005, Delphi 2006, C++Builder 6 and C++Builder 2006 dan pada sistem operasi Windows 98/ME/NT/2000/XP/2003.
Selain fitur yang cukup menarik, salah satu hal yang memberi nilai tambah adalah komponen ini gratis!
Di bawah ini adalah contoh tampilan dari program yang dilengkapi dengan komponen SXSkinComponents. Klik pada gambar untuk melihat tampilan yang lebih besar.

   
Homepage: http://www.saarixx.info/sxskincomponents/en/index.htm
Download:http://www.saarixx.info/sxskincomponents/en/downloads.php
Ukuran File: 3,3 Mb

BORLAND DELPHI

A. Pengertian Borland Delphi

Borland Delphi adalah sebuah bahasa pemrograman under windows yang diproduksi oleh Borland. Pemrograman ini merupakan pengembangan pemrograman bahasa pascal. Dengan menggunakan borland delphi ini kita dapat membuat program dari yang sederhana sampai yang berbasis client / server atau jaringan yang berjalan di sistem operasi windows.
B. Keunggulan Borland Delphi

1. Borland Delphi salah satu pemrograman yang berbasis object OOP (Object Oriented Programming), dengan demikian peristiwa yang sedang terpilih, operasi apa yang dilakukan dan seluruh aktifitas dalam program harus mengacu pada object – object tertentu.
2. IDE (Intergrated Develoment Environment) didalam pemrograman Borlan Delphi memudahkan programer dalam mengembangkan aplikasinya.
3. Source Code Borland Delphi merupakan pengembangan dari bahasa pemrograman pascal yang mudah digunakan.
4. Komunitas pengguna yang besar pada Usenet maupun web
5. Dapat mengkompilasi menjadi single executable, memudahkan distribusi dan meminimalisir masalah yang terkait dengan versioning
6. Banyaknya dukungan dari pihak ketiga terhadap VCL (biasanya tersedia berikut source codenya) ataupun tools pendukung lainnya (dokumentasi, tool debugging)
7. Optimasi kompiler yang cukup cepat
8. Mendukung multiple platform dari source code yang sama

C. Kelemahan dari Borland Delphi

1. Partial single vendor lock-in (Borland dapat menetapkan standar bahasa, kompatibilitas yang harus mengikutinya)
2. Terbatasnya kamampuan portabilitas antar-platform OS (sebelum ada kylix)
3. Akses pada platform dan library pihak ketiga membutuhkan file-file header yang diterjemahkan ke dalam bahasa pascal
4. Dokumentasi atas platform dan teknik-teknik yang menyertainya sulit ditemukan dalam bahasa pascal (contoh akses COM dan Win32)

D. Memulai Program Borland Delphi

1. Klik tombol Start
2. Pilih All Program, kemudian Borland Delphi 7.0 Lalu klik Delphi 7.0 (disini saya masih menggunakan borland delphi 7.0)
3. Maka akan tampil jendela utama Borland delphi 7.0.
   Jendela IDE Borland Delphi mempunyai perangkat-perangkat yang dapat digunakan untuk memudahkan seorang programmer dalam membuat program. IDE Delphi 7 telah didesain sedemikian oleh Borland sehingga bersifat intuitif, Perangkat tersebut adalah :
   • Menu Bar dan ToolBar
   • Media Desain / Form
   • Object Tree View
   • Object Inspector yang terdiri dari Properties dan Event
   • Code Editor

D. Menyimpan Form
Pada Delphi ada 3 buah file utama (*.dpr, *.pas, *.dfm)

1. *.dpr adalah file proyek yang dibuat berisi program kecil untuk :
   • Mendefinisikan unit yang ada didalam file
   • Menginisialisasi data
   • Membangun Form
   • Menjalankan Aplikasi
2. *.pas adalah Unit – unit (Pascal Code File), biasanya terdiri dari satu atau banyak file.
3. *.dfm adalah file definisi Form (Special Pscudo Code File)

Pilih submenu SAVE ALL. Karena kita kadang lupa apakah file unit dan project nya sudah disimpan. dan Delphi akan menanyakan nama file source code untuk unit (*.pas) dan nama file project (*.dpr)

E. Menjalankan Program

Jalankan program dengan menekan Tombol F9 atau pilih menu Run kemudian Run. Apabila ada beberapa Form yang ada didalam Project maka kita tentukan dulu form / unit yang akan kita jalankan. caranya yaitu :

Pilih menu project => Options atau tekan tombol Shift + Ctrl + F11 secara bersamaan dan akan tampil jendela Project Option, Silahakan tentukan form mana yang akan dijalankan.
Contoh Tampilan Delphi 7.0

Animasi Teks Efek Blink Pada Delphi

Efek blink, tentu teman – teman semunya mengetahui efek ini. Efek blink adalah efek dimana teks yang diblink-kan berkedip – kedip. Didalam suatu website efek blink ini sangat banyak dijumpai, namun apakah teman – teman berpikir bagaimana membuat efek blink pada komponen label atau komponen lainnya yang ada didelphi ??? bila hal itu terjadi tentunya program atau aplikasi yang kita buat akan ada efek seni sehingga bisa mengurangi jenuh pengguna dalam menggunakan aplikasi yang kita buat.

Untuk membuat efek blink ini sebenarnya tidak begitu sulit, kita cukup menggunakan komponen timer yang disetting dan ditambah listing sehingga komponen lain yang kita inginkan dapat menjadi blink sesuai keinginan kita. Baiklah tanpa basa basi lagi kita langsung saja ke TKP :

1. Buka Program Delphi, Tentunya teman – teman sudah tahu. Kalau belum tahu ini caranya : Klik Start => All Programs => Borland Delphi => Delphi 7.0
2. Tambahkan 1 buah komponen label dari kategori standard pada form1, atur captionnya sesuai keinginan kami, misal disini Borland Delphi, atur property font menjadi name=’lucida Console’, dan size=16
3. Sesuaikan ukuran form dengan komponen label, atau sesuai dengan keinginan kamu
4. Tambahkan 1 buah komponen Timer dan atur property intervalnya menjadi 100
5. Kemudian Klik 2X (dua kali) komponen timer dan anda masukan listing berikut ini
   Procedure TForm1.Timer1Timer (Sender:TObject);
   begin
   if Label1.visible=true then
   label1.visible:=false
   else
   label1.visible:=true;
   end;
Jalankan aplikasi yang anda buat dengan menekan tombol F9 pada keyboard, dan litah hasilnya

Catatan :

Jika ingin mengubah kecepatan berkedip teks, cukup anda atur besar kecilnya property interval milik komponen timer.

Jika teman – teman benar melakukannya maka saat dijalankan akan tampil seperti ini : (Klik gambar untuk meihat dengan jelas efek blink-nya)

Membuat Form Login di Delphi

Apa kabar semuanya, kali ini kita akan belajar membuat sebuah login form untuk administrator, maupun operator yang lainnya dengan menggunakan database acces dan sedikit perintah SQL, karena disini kita menggunakan ADOQuery. Untuk membuat login form ini langkah yang kita lakukan adalah :

Buka Microsoft Access kemunidan File –> New –> Blank Database

Beri nama file dengan login, kemudian Click Create

Buat satu table, dengan nama tabelnya login. Gunakan Create table in design view untuk membuat table

Buat 2 Field seperti gambar di bawah. Atur Field Size seperti yang diinginkan.

Isi Satu Data, misalkan username : Admin, Password : Admin, kemudian Tutup Microsoft Access nya,

Sekarang Jalankan program Delphi.

Tambahkan 2 Label, 2 Edit, 1 Button, 1 ADOConnection dan 1 ADOQuery kemudian atur propertynya sebagai berikut :

Form1
Caption	Login
BorderStyle	bsDialog
Position	poScreenCenter

Label1, Label2
Caption	User name
Caption	Password

Edit1
Text	(Dikosongkan)

Edit2
Text	(Dikosongkan)
PasswordChar	*

ADOConnection
LoginPrompt	False

Agar tampilan sesuai dengan tema Xp tambahkan komponen XPMan Sehingga setelah selesai tampilannya menjadi berikut ini :

Koneksikan ADOConnection dengan database yang kita buat tadi dengan cara :

• Pada Property ConnetionString di ADOConennection …

• Kemudian akan tampil kotak dialog seperti ini, Klik Build

• Setelah itu akan tampil Kotak dialog seperti ini, Kemudian teman – teman ketikkan nama file Acces yang teman – teman buat tadi (login.mdb)
  
  Kemudian klik Test Connetion, Jika connettion berhasil maka akan tampil kotak dialog seperti berikut ini :
  
  Jika Koneksi berhasil, silahkan teman klik OK, OK, OK dan pada property Connected pilih True
• Klik ADOQuery, kemudian pada property Connection pilih ADOConection1. Seperti gambar Berikut ini :

• Setelah semuanya selesai, Klik pada Button kemudian masukan kode berikut ini :
  Procedure TForm1.Button1Click(Sender: TObject);
  begin
  with ADOQuery1 do begin
  Close;
  SQL.Clear;
  SQL.Add(‘select * from login where username=’+ QuotedStr(edit1.Text));
  Open;
  end;
  if ADOQuery1.RecordCount = 0 then
  Application.MessageBox(‘Maap, Username tersebut tidak ada !!!’, ‘Informasi’,MB_OK or MB_ICONINFORMATION)
  else begin
  if ADOQuery1.FieldByName(‘password’).AsString <> edit2.Text then
  Application.MessageBox(‘Pastikan Username atau Password Anda benar !!!’,'Error’, MB_OK or MB_ICONERROR)
  else begin
  Hide;
  Form2.Show;
  end
  end;
  end;
• Setelah Selesai Kemudian Tambahkan 1 Form lagi dengan cara File –> New –> Form.
• Di Form 2 ini tambahkan komponen 1 Label dan 1 komponen button atur property caption masing komponen sehingga menjadi :

• Kemudian Klik 2 Kali pada Tombol Keluar (Button 1) dan masukan kode berikut ini :
  Procedure TForm1.Button1Click(Sender: TObject);
  begin
  Application.Terminated;
  end;
  end; 
• Setelah selesai coba jalankan aplikasi yang teman buat tadi dengan cara menekan tombol F9 di keyboard. Jika tidak ada kesalahan dalam pembuatannya tadi maka akan didapat tampilan sebagai berikut :

Membuat DBGrid Berwarna Belakang

Komponen DBGrid, tentunya teman – teman tidak asing lgi dengan komonen ini. Komponen ini fungsinya untuk menampilkan isi database dari data yang kita input. Normal dari warna tampilan cell (baris) DBGrid adalah putih.

Namun jika tampilan pada DBGrid semuanya sama dan kebetulan banyak cell pada DBGrid tentunya kita akan mudah bosan jika lama – lama memandang ke Tabel tersebut (DBGgrid), Untuk itu agar para user tidak bosan terhadap tampilan tabel tersebut, kita bisa membuat tampilan DBGrid (Tabel) menajadi Kombinasi Warna Sehingga user akan lebih mudah mengecek dari tabel tersebut.

Caranya adalah sebagai berikut :

1. Tentunya sebelum melakukan Hal ini, teman – teman sudah menambahkan Komponen DBGrid diform dan komponen koneksi database, sehingga ketika diaktifkan maka data di dalam database akan tampil di DBGrid (Hal ini tidak dijelaskan lagi, sebab tentunya teman – teman sudah mengetahuinya langkah – langkahnya)
2. Klik Komponen DBGrid kemudian pada Object Inspector Pilih Events trus pilih event DrawColumnCell klik 2 X (dua kali)
3. Kemudian teman – teman masukan kode berikut ini :
   procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
   DataCol: Integer; Column: TColumn; State: TGridDrawState);
   begin
   if DBGrid1.DataSource.DataSet.RecNo mod 2 =0 then
   DBGrid1.Canvas.Brush.Color := clskyBlue; //pilih warnanya
   DBGrid1.DefaultDrawColumnCell(rect, datacol, column, state);
   end;
4. Kalau sudah selesai coba teman – teman compile aplikasi teman – teman dengan menekan tombol F9 di keyboard, Maka akan didapat tampilan berikut ini :

Catatan :
Sesuain nama komponen DBGrid dengan nama DBGrid yang teman – teman gunakan. kalau didalam contoh ini saya tidak merubah nama dari komponen DBGrind sehingga namanya tetap DBGrid1.
Ok itu saja dulu,,, kalau ada yang salah saya mohon maaf karena saya juga masih dalam pembelajaran. Semoga Bermanfaat ya… !!!