Download Component Delphi

Kali ini ane mau berbagi Component Delphi dengan teman - teman biar program yang dihasilkan lebih menarik dan terlihat lebih sempurna aja hehe ... karena dengan bantuan component kita dapat dengan mudah membuat form yang terlihat bagus dari defaultnya dan masih banyak lagi keuntungan menggunakan component. So, buat yang mau download langsung aja dech menuju link di bawah ini ya :

Download 

Memberi Warna record aktif pada TDBGrid

Bagi anda yang ingin memberikan warna berbeda pada record aktif TBDGrid anda dapat menambahkannya dengan beberapa baris syntax pada even DBGrid.OnDrawColumnCell :

type
TCustomDBGridCracker = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TCustomDBGridCracker(Sender) do
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

semoga bermanfaat

Referensi http://www.klik-kanan.com

Disable Menu dan Tombol Close

Sebuah form biasanya mempunyai tiga tombol yang terletak pada bagian title bar, yaitu tombol maximize, minimize, close.

Untuk Dengan tips di bawah ini Anda dapat mendisable tombol/menu close.

procedure TForm1.FormCreate(Sender: TObject);

var

hMenuHandle : HMENU;

begin

hMenuHandle := GetSystemMenu(Form1.Handle, FALSE);

if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle,

SC_CLOSE, MF_BYCOMMAND);

end;

Langkah pertama adalah mencari handle dari window menu (atau System menu atau Control menu), caranya yaitu dengan menggunakan fungsi GetSystemMenu.

function GetSystemMenu (hWnd : HWND, bRevert : Boolean) : HMENU;

Parameter pertama dari fungsi GetSystemMenu adalah handle dari window atau form. Dalam contoh ini nama formnya adalah Form1.
Parameter kedua adalah bRevert. Jika nilai bRevert bernilai True maka nilai balik dari fungsi GetSystemMenu adalah NULL, sebaliknya jika bRevert bernilai False maka nilai baliknya adalah handle dari copy dari window menu.

Langkah selanjutnya adalah “menghapus” item pada window menu dengan menggunakan fungsi DeleteMenu.

function DeleteMenu (hMenu : HMENU, uPosition : integer, uFlags : integer): Boolean

Parameter pertama adalah handle dari window menu (yang merupakan hasil pencarian dengan fungsi GetSystemMenu).
Parameter kedua merupakan posisi atau pengenal menu. Jika Anda mengisi parameter ketiga dengan MF_BYCOMMAND maka parameter kedua dapat bernilai SC_CLOSE, SC_MOVE, dan SC_SIZE. Sebaliknya jika Anda mengisi parameter ketiga dengan MF_BYPOSITION maka Anda dapat mengisi parameter kedua dengan suatu nilai integer yang merepresentasikan menu Close.

Fungsi DeleteMenu akan mengembalikan nilai True jika penghapusan menu berhasil dan mengembalikan nilai False jika gagal.
Kedua perintah di bawah ini akan mendapatkan hasil yang sama:

DeleteMenu(hMenuHandle, 6, MF_BYPOSITION);

DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND)

Referensi http://www.klik-kanan.com

Hanya Angka

Kali ini saya ingin berbagi sedikit ilmu tentang bagaimana cara menginputkan hanya angka saja pada program delphi. Untuk memulai siapkan form kosong setelah itu pilih Edit pada component standard lalu Tab Events pilih OnKeyPress klik 2x lalu ketik or copas coding berikut :

procedure TForm1.Edit1KeyPress(Sender:TObject,var Key: Char);
begin
        if not(key in['0'..'9',#8]) then key:=#0;
end;

end.

Untuk melihat hasil silahkan anda Run atau tekan F9. Selamat Mencoba


Download Source code

Membuat Form Cantik Tanpa Skin

Dalam membuat sebuah program terkadang sangat kurang menarik dilihat jika  yang ditampilkan biasa - biasa saja namun untuk membuat yang menarik tentu saja kita menggunakan component - component dari sebuah program tersebut .

Tapi menurut saya tidak perlu kita harus menggunakan componet tersebut karena dengan sedikit keahlian mendesain sebuah image kita dapat membuat sebuah program dengan tampilan yang tidak kalah menarik dengan component tersebut.

Ok, kita langsung saja mulai bagaimana cara membuat form yang menarik pertama yang harus anda lakukan adalah siapkan gambar terlebih dahulu atau anda bisa membuat sendiri menggunakan MsPaint, Photoshop, Corel ataupun yang lain setelah selesai mendesain anda buka Program Delphi

- Rubah Properties BorderStyle menjadi bsNone

- Rubah autosize menjadi true

- setelah itu tambahkan component Image pilih Additional

- Lalu anda load image melalui properties cari menu Picture

- Klik Form1 dan rubah properties color menjadi warna yang anda suka

- Rubah Transparentcolor menjadi warna yang anda pilih pada properties color

- Rubah Transparentcolor menjadi true

Untuk melihatnya silahkan anda tekan F9,, tampilan bisa anda lihat cukup menarik bukan ....???? tetapi masih ada yang kurang dari tampilan tersebut ternyata form tidak bisa di geser kemana - mana dan bagaimana agar form dapat di geser ...??? hmmm,,, pertanyaan yang bagus untuk membuat form agar dapat digeser silahkan anda klik image yang terdapat pada form setelah itu anda pilih Tab Event pilih OnMouseDown lalu anda klik 2x setelah itu anda ketikan coding berikut.

Procedure Tform1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

         ReleaseCapture;

         Perform(WM_SYSCOMMAND,$f012,0);

end;

end.

Selesai sudah untuk melihat hasilnya silahkan anda Run atau tekan F9 apa yang terjadi ternyata form dapat digeser kemana - mana.

Download Source code

 

Rounded Form

Seperti biasanya delphi akan membuat form berbentuk segi empat,, dan bagaimana cara membuat agar form berbentuk lingkaran atau elips..???
Disini saya akan memberikan contoh bagaimana cara membuatnya klik 2x pada form setelah itu ketik syntax berikut ini :

procedure TForm.1.FormCreate(Sender: TObject);
var
Region : Hrgn;
begin
Region := CreateEllipticRgn(1,1,200,200);
SetWindowRgn(Handle, region, true);
end;

Untuk merubah bentuk form silahkan anda rubah nilai yang terdapat pada baris Region:=CreateEllipticRgn(1,1,200,200);" tanpa tanda kutip. Selamat mencoba semoga bermanfaat.

Referensi http://www.klik-kanan.com

Membuat Form Gradient Pada Delphi

Nih ... catatan ku semalam waktu ga bisa tidur Qu searching om google bagaimana cara membuat form gradient pada delphi ternyata Qu menemukan jawabannya,, untuk singkatnya langsung ja copas neh syntax oceee ....

procedure TForm1.FormPaint(Sender: TObject);
var
Row, Ht: Word;
IX: Integer;
begin
iX :=200 ;
Ht:=(ClientHeight + 512) div 256;
for Row := 0 to 512 do
begin
with Canvas do begin
Brush.Color := RGB(Ix,150,row);
FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht));
IX :=(IX-1);
end;
end;
end;

untuk mengganti menjadi warna lain ubah dibagian ini
Brush.Color := RGB(Ix,150,row);

RGB merupakan kombinasi warna Red, Green, Blue. Nilai yang bisa Anda masukkan pada RGB yaitu 0 sampai 255.


Referensi http://www.klik-kanan.com