Tips&Trik OnKeyPress

Hallo sobat-sobat delphier. Ketemu lagi nich, jangan bosen yach kunjungi blog aq.hehehehhehe. Kali ini saya akan berbagi sedikit tips dan trik memanfaat kan perintah OnKeyPress pada form. Pernah kah kalian membuat semua aplikasi yang memiliki banyak entrian data dan untuk berpindah dari satu isian ke isian lain user minta menggunakan tombol enter. Wah...klo entrian nya cuma 5 sich gak apa2, gmn kalo misal entrian nya ada 10 atau lebih, bisa panjang banget tu coding kalian. Misal ada lima Entrian data NIM,NAMA MAHASISWA, Jenis Kelamin, Tmp.Lhr, Tgl.Lhr. Kalo isian nya cuma 5 kalian bisa aja menggunakan perintah IF key=#13 Then edNama.SetFocus dan seterus nya tp gmn kalo Entrian data nya banyak?? Jangan kwatir sobat-sobat semua ini aq pny sedikit tips dan triks utk mngtasi masalah ini.
Langkah nya :
1. Urutkan dulu Tag dari masing2 Komponent entrian data, baik itu berupa Edit, ComboBox maupun yg lain nya.
2. Kalau sudah urut rubah properti KeyPreview milik nya form menjadi Tru.
3. Langkah selanjut nya ketikkan perintah ini pada event OnKeyPressnya Form
if Key=#13 then SendMessage(Handle,WM_NEXTDLGCTL,0,0);

DDevExtension2010

Pernah kah kalian bingung ketika mencari sebuah komponent yang ada di delphi?? Apalagi kalu kita sudah banyak menginstal VCL-VCL tambahan yang abegitu banyak. Kalau tmen-tmen pernah mengalami hal itu mungkin ini bisa jadi solusi buat temen-temen. Ini saya perkenalkan sebuah komponen yang mungkin bisa membantu temen2 semua nama nya komponen DDevExtension.
Kalau berminat download saja dan instal di komputer kamu ini link download nya DDevExtension

Fungsi pada delphi

Fungsi(Function) merupakan satu teknik dalam bahasa pemrograman untuk meringkas atau mempermudah kita dalam membuat suatu aplikasi. Perlu dingat bahwa sebuah fungsi hanya bisa menampung sebuah nilai bentuk dasar dari fungsi :
1. Function [NamaFungsi]: [typeDatahasilOutput];
2. Function [NamaFungsi](parameter1:type_data1,parameter2:type_data2, ) : [typeDatahasilOutput];
Contoh:
Function kali : integer;
begin
c:=a*b; // variabel global
result :=c;// Nilai kembalian
end;
Function kali(a,b:integer) : integer;
begin
c:=a*b; // variabel lokal
result :=c;// Nilai kembalian
end;

Validasi Angka

Script untuk membuat agar TEdit pada delphi hanya bisa diisi oleh data angka saja, isikan script dibawah ini ke Event nya OnKeyPress TEdit:
if Not ( key in ['0'..'9',#13,#27,#8]) then key:=#0;