İlk harf büyük diğerleri küçük

[bobasturk]

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
  low:string='abcçdefgğhıijklmnoöprsştuüvyz';
  upp:string='ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ';

  function UpperCaseTr(C: Char; L:Boolean): Char;
  // L -> True ise Upper, False ise Lower
  var
    i : integer;
  begin
    Case L of
    True : begin
             i := Pos(c,low);
             if  i > 0 then result := upp[i]
                       else result := c;
           end;
    False: begin
             i := Pos(c,upp);
             if  i > 0 then result := low[i]
                       else result := c;
           end;
    end; // Case
  end;
begin
  with Sender as TEdit do
    if (SelStart = 0) or (Text[SelStart] = ' ') or (Text[SelStart] = '.') then
    begin
      if Key in ['a'..'h','j'..'z']
      then Key := UpperCase(Key)[1]
      else if key in ['ı','ğ','ü','ş','i','ö','ç']
           then Key :=UpperCaseTr(Key, True);
    end else
    begin
      if Key in ['A'..'H','J'..'Z']
      then Key := LowerCase(Key)[1]
      else if key in ['I','Ğ','Ü','Ş','İ','Ö','Ç']
           then Key :=UpperCaseTr(Key, False);
    end; // if (SelStart = 0)
end;

Muharrem ustam, peki bu kodu editler için uygulayabiliyoruz ve hali hazırda kullandığım programda buna benzer kodu edit ve memo larda kullanabiliyorum. cxgrid in ilgili hücresinde nasıl kullanabiliriz. zira kullanıcıya hep küçük harf yazmasını ve imla kuralını uygulamasını yaptıramıyorum başıboş davranıp gelişi güzel yazıyorlar. teşekkür ve saygı ile kolay gelsin