The Riddle

Delphi… hmm…

berikut ini cara untuk memberi nama pada setiap button di DBNavigator, kenapa saya membahas metode ini di blog? karena metode ini tidak ada di bentuk properties standar delphi,,,, jadi.. ya bisa di bilang ngehack sendiri dhee….

bentuk awalnya:

akan menjadi:

Berikut langkah-langkahnya:

1. pada Tool Pattern, cari Data Controls -> TDBNavigator (double click atau drag ke form yang tersedia)
2. pada bagian uses tambahkan Button jika belum ada.
3. tambahkan pula

   
type TDBNewNavigator = class(TDBNavigator);


   perhatian: pada Delphi, penulisan type boleh lebih dari satu

4. pada form, bagian Object Inspector pilih OnCreate (double click)
5. Jika sudah akan tampil window Code bertuliskan seperti ini:

   
procedure Tform1.FormCreate(Sender: TObject);
begin
end;


6. Tambahkan di script tersebut menjadi seperti ini:

   
procedure Tform1.FormCreate(Sender: TObject);
var
B : TNavigateBtn;
begin
//-----------------------------------
//-----------------------------------
DBNavigator1.Width := 500;
DBNavigator1.Height := 40;
for B := Low(TNavigateBtn) to High(TNavigateBtn) do
with TDBNewNavigator(DBNavigator1).Buttons[B] do
begin
Case Index of
nbFirst : Caption := 'Pertama';
nbPrior : Caption := 'Sebelumnya';
nbNext : Caption := 'Berikutnya';
nbLast : Caption := 'Terakhir';
nbInsert : Caption := 'Tambah';
nbDelete : Caption := 'Hapus';
nbEdit : Caption := 'Edit';
nbPost : Caption := 'Tambah';
nbCancel : Caption := 'Batal';
nbRefresh: Caption := 'Refresh';
End;
Layout := blGlyphTop; { uses Buttons}
Hint := Caption;
ShowHint := True;
end;
end;

7. Tinggal di jalankan (F9)