İlk harf büyük diğerleri küçük
Edit1'e yazılan yazının ilk harfini büyük diğer harflerini küçük yapıyor.
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;

DELPHI - 7

Sayfayı Yazdır | Pencereyi Kapat