Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
İlk harf
#1
Merhabalar.

Edit ilk harfi BÜYÜK nasıl yapabilirim? bu konuda çözüm bulan var mı?
Cevapla
#2
begin
Edit1.SelStart:=0;
Edit1.SelLength:=1;
Edit1.Seltext:=AnsiUpperCase(Edit1.SelText);
end;



Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol | Delphi Türkiye | @ender_arslanturk
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#3
edit.onexit
 Edit1.Text := UPPERCASE(Edit1.Text[1]) + LowerCase(Copy(Edit1.Text, 2, Length(Edit1.Text)-1));

OnKeyPress
 if Length((Sender As TEdit).Text) = 0 then
   Key := Char(UpperCase(String(Key))[1]);
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla
#4
Emeği geçenlere teşekkürler. Biraz değişiklik yaparak sorunu çözdüm.

procedure TForm1.EFiyatChangeTracking(Sender: TObject);
var
  Karakter: String;
begin
  if EFiyat.Text.Length > 0 then
  begin
    Karakter := EFiyat.Text;
    EFiyat.OnChangeTracking := Nil;
    EFiyat.Text := '';
    EFiyat.Text := AnsiLowerCase(Karakter);
    EFiyat.Text := AnsiUpperCase(EFiyat.Text[1]) + Copy(EFiyat.Text, 2,Length(EFiyat.Text) - 1);
    EFiyat.OnChangeTracking := EFiyatChangeTracking;
    EFiyat.GoToTextEnd;
  end;
end;
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Edite Harf Girme Mericx 17 932 24-02-2017, Saat: 09:30
Son Yorum: Mericx



Konuyu Okuyanlar: 1 Ziyaretçi