İlk harfin büyük olması

[Erd_turkmen]

Herkese merhabalar. Arkadaşlar forum yardımıyla editlerin içine yazılan karakterlerin ilkinin büyük olması için bir procedure buldum. Ancak benim formumda 50 tane edit nesnesi var. Herbirine yazmak yerine tek bir procedure ile bunu yapamazmıyız Yapmaya çalıştım ama ortaya harika bir çorba çıktı

Kod: Tümünü seç

procedure Tfrmfirma.suiDBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
with Sender as TsuiDBEdit do
   if (SelStart = 0) or
      (Text[SelStart] = ' ') then
         if Key in ['a'..'z'] then
            Key := UpCase(Key);
end;

Kolay gelsin. teşekkürler

[mero]

Birinci edite kodları yaz ikinci editin onkeypress inde birinci editin keypress(Edit1KeyPress) ini seç. hepsine aynı şeyi uygula.

[danaci]

free Kedit bileşenini kullanın

http://www.kopr.cz/delphi/