Arsip: Change case di Tedit


by nickqin in Serba Neka more 13 years ago 5687
Cukup merepotkan bila kita harus menekan tombol shift maupun caps lock bila ingin menuliskan huruf besar di awal kalimat pada tedit, untuk mengatasinya coba aja kode berikut :)
procedure TForm1.Edit1Change(Sender: TObject);
var
OldStart : Integer;
begin
With Edit1 do
if Text <> '' then begin
OnChange := NIL;
OldStart := SelStart;
Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
SelStart := OldStart;
OnChange := Edit1Change;
end;
end;


selamat mencoba
tapi jika ingin yang setelah spasi jg jadi huruf besar coba aja di
http://nickqin.wordpress.com/
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com