Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Editlerde(DBEdit'de dahil) ilk Harf Büyük......  (Okunma sayısı 1866 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı HBV

  • Delphi 6 Level 5
  • *****
  • İleti: 298
  • Rep: +11/-7
  • Cinsiyet: Bay
Editlerde(DBEdit'de dahil) ilk Harf Büyük......
« : 13 Ocak 2007 22:54:51 »
Editlerde(DBEdit'de dahil) ilk Harfin Büyük yazılmasını istiyormusunuz? o halde ilgili Edit'in "OnKeyPress"'ine aşağıdaki Kod'u yazınız;
Kod: [Seç]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
with Sender as TEdit do
 if (SelStart=0) or
  (Text[SelStart]=' ') then
  if Key in ['a'..'z'] then
   Key := UpCase(Key);
end;
« Son Düzenleme: 13 Ocak 2007 22:55:34 by HBV »
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »