Masukkan Pada TextBox Harus Berupa Huruf Kecil

27 01 2011

Apabila Anda menginginkan masukkan pada TextBox tersebut berupa huruf kecil, Anda bisa menggunakan listing program berikut ini.

procedure TForm1.Edit1Change(Sender: TObject);
var
  i: Integer;
begin
  Edit1.Text:=LowerCase(Edit1.Text);
  begin
    for i:=1 to 100 do
      Edit1.SelStart:=Edit1.SelStart+1;
  end;
end;

Catatan:

  • Untuk menguji contoh penulisan listing program diatas, coba Anda aktifkan tombol CapsLock pada keyboard Anda.
  • Listing pengulangan “for i:=1 to 100 do” bisa Anda ubah sesuai dengan kebutuhan jumlah karakter yang akan ditampilkan.

Aksi

Information

One response

29 01 2013
endra

thanks for your sharing…………….

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s




%d blogger menyukai ini: