key press anında formatlı yazı

[Fatih!]

Kod: Tümünü seç

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char); 
var 
strng:string; 
begin 
strng:=Edit1.text; 

if (Edit1.SelStart = 0) or 
(Edit1.SelTEXT = ' ') then 

     Case Key of 
               'ı': Key := 'I'; 
               'i': Key := 'İ'; 
               else Key := AnsiUpperCase(Key)[1]; 
               end 
               else 
 if (strng[Length(Edit1.Text)]=' ') or (strng[Length(Edit1.Text)]='.') then 
      Case Key of 
               'ı': Key := 'I'; 
               'i': Key := 'İ'; 
               else Key := AnsiUpperCase(Key)[1]; 
               end 
               else 
 if NOT  (strng[Length(Edit1.Text)]=' ') or NOT (strng[Length(Edit1.Text)]='.')  then 
      Case Key of 
               'I': Key := 'ı'; 
               'İ': Key := 'i'; 
               else Key := AnsilowerCase(Key)[1]; 
               end; 
end;