uses
......StdCtrls;
Saya akan membuat dua kotak masukan TEdit. Yang pertama saya beri nama edtNama. Yang kedua saya beri nama edtPass. Saya akan meletakkan kode programnya di OnCreate milik Form. Dengan demikian saat pertama kali dieksekusi, kotak-kotak edit tersebut akan langsung terlihat.
procedure TForm1.FormCreate(Sender: TObject);
begin
edtNama := TEdit.create(self);
with edtNama do
begin
Parent := self;
Left := 10;
Top := 20;
Width := 100;
Height := 20;
Text := 'Ini namaku';
end;
edtPass := TEdit.create(self);
with edtPass do
begin
Parent := self;
Left := 10;
Top := 50;
Width := 100;
Height := 20;
Text := 'Ini Passwordku';
end;
end;
Dalam program ini, kita membuat kotak edit edtNama dan edtPass secara manual, sehingga kita juga bertanggung jawab membuat lebar (width), tinggi (height), jarak dari kiri (left), dan jarak dari atas (Top) sendiri.
Jangan lupa mengatur property Parent. Di program ini kita mengatur agar Parent := self. Kata self mengacu pada kontainer utama, yaitu Form itu sendiri. Apabila Anda lupa mengatur property parent, obyek edtNama dan edtPass tidak akan terlihat oleh pengguna.
Variabel edtNama, edtPass di deklarasikan di bagian private. Kenapa tidak dideklarasikan di bagian FormCreate(Sender: TObject); ? Alasannya, agar edtNama dan edtPass dapat diakses di seluruh bagian Form. Jika Anda hanya mendeklarasikan di FormCreate, maka hanya kode program di bagian ini saja yang bisa mengakses.
Sekarang kita mengaplikasikan "Bagaimana mengakses Event secara pemrograman. Dalam contoh di artikel ini, saya akan memberikan contoh bagaimana mengakses OnKeyPress secara pemrograman.
Pada OnKeyPress, saya akan membuat program "Apabila pengguna menekan tombol Enter" maka fokus akan berubah di edtPass.
Deklarasikan edtNamaKeyPress di bagian private
private
edtNama : TEdit;
edtPass : TEdit;
procedure edtNamaKeyPress(Sender: TObject; var Key: Char);
Sekarang kita membuat implemantasi kode program edtNamaKeyPress.
procedure TForm1.edtNamaKeyPress(Sender: TObject; var Key: Char);
begin
edtPass.setfocus;
end;
Lantas pasangkan property OnKeyPress milik edtNama dengan nama prosedur edtNamaKeyPress. Sekarang isi kode program di bagian OnCreate milik form menjadi:
procedure TForm1.FormCreate(Sender: TObject);
begin
edtNama := TEdit.create(self);
with edtNama do
begin
Parent := self;
Left := 10;
Top := 20;
Width := 100;
Height := 20;
Text := 'Ini namaku';
OnKeyPress := edtNamaKeyPress;
end;
edtPass := TEdit.create(self);
with edtPass do
begin
Parent := self;
Left := 10;
Top := 50;
Width := 100;
Height := 20;
Text := 'Ini Passwordku';
end;
end;
Kode program selengkapnya:
0 comments:
Posting Komentar