Masukkan Pada TextBox Harus Berupa Huruf Kecil

Masukkan Pada TextBox Harus Berupa Huruf Kecil

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.