Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
edit-numara formatında yazma ?
#1
iyi günler ,

edit'e yazdığım numarayı otomatik olarak aynı anda nasıl " 0 ( 555 ) 555 55 55 " şeklinde yazdırabilirim ?

label'e yazdırmayı denedim'de bu sefer pekde anlam ifade etmiyor labele yazdırmak.

number.png
Cevapla
#2
Selamlar,

TMaskEdit'i inceleyiniz. Orada formatlı kullanım mevcut. Telefon numarası, parantezli yazımlar, vs. vs. Hatta kendi editöründe örnek formatlamalar da var. Yani hem Entry işlemini hem de gösterme işlemini burada yapabilirsiniz. Ya da sadece gösterme işini de yapabilirsiniz. Yani TEdit'egirilen bilgiyi aynı anda (OnKeyPress eventinde) TMaskEdit'e aktarıp, gösterilmesini sağlayabilirsiniz.

Kolay Gelsin
Cevapla
#3
(28-05-2018, Saat: 15:27)Kuri_YJ Adlı Kullanıcıdan Alıntı: Selamlar,

TMaskEdit'i inceleyiniz. Orada formatlı kullanım mevcut. Telefon numarası, parantezli yazımlar, vs. vs. Hatta kendi editöründe örnek formatlamalar da var. Yani hem Entry işlemini hem de gösterme işlemini burada yapabilirsiniz. Ya da sadece gösterme işini de yapabilirsiniz. Yani TEdit'egirilen bilgiyi aynı anda (OnKeyPress eventinde) TMaskEdit'e aktarıp, gösterilmesini sağlayabilirsiniz.

Kolay Gelsin

maskedit fmx'de mevcut değil mağlesef
Cevapla
#4
Karakter saydırarak () ekleye bilirsiniz.

Örnek:
 if (Length(PLTotal.Text) = 2) then
   begin
PLTotal.Text := PLTotal.Text + ':';
     PLTotal.SelStart := Length(PLTotal.Text);
Cevapla
#5
(28-05-2018, Saat: 15:43)brs Adlı Kullanıcıdan Alıntı: Karakter saydırarak () ekleye bilirsiniz.

Örnek:
 if (Length(PLTotal.Text) = 2) then
   begin
PLTotal.Text := PLTotal.Text + ':';
     PLTotal.SelStart := Length(PLTotal.Text);

teşekkürler olumlu sonuç.

istediğimi gerçekleştirdim.
Cevapla
#6
Selamlar,

Pardon ben normal Desktop'ta sanmıştım Smile
Cevapla
#7
(28-05-2018, Saat: 16:04)Kuri_YJ Adlı Kullanıcıdan Alıntı: Selamlar,

Pardon ben normal Desktop'ta sanmıştım Smile

estafrullah ne demek  Shy Smile
Cevapla
#8
(28-05-2018, Saat: 16:00)BY-HAYALET Adlı Kullanıcıdan Alıntı:
(28-05-2018, Saat: 15:43)brs Adlı Kullanıcıdan Alıntı: Karakter saydırarak () ekleye bilirsiniz.

Örnek:
 if (Length(PLTotal.Text) = 2) then
   begin
PLTotal.Text := PLTotal.Text + ':';
     PLTotal.SelStart := Length(PLTotal.Text);

teşekkürler olumlu sonuç.

istediğimi gerçekleştirdim.

çözümünü de paylaşırsan , senin gibi sorun yaşayacaklara da yardımcı olmuş olursun.
WWW
Cevapla
#9
(28-05-2018, Saat: 16:17)yhackup Adlı Kullanıcıdan Alıntı:
(28-05-2018, Saat: 16:00)BY-HAYALET Adlı Kullanıcıdan Alıntı: teşekkürler olumlu sonuç.

istediğimi gerçekleştirdim.

çözümünü de paylaşırsan , senin gibi sorun yaşayacaklara da yardımcı olmuş olursun.

tabiki ;

if (Length(edit1.Text) = 1) then
   begin
edit1.Text := edit1.Text + ' ( ';
     edit1.SelStart := Length(edit1.Text);
end;

if (Length(edit1.Text) = 7) then
   begin
edit1.Text := edit1.Text + ' ) ';
     edit1.SelStart := Length(edit1.Text);
end;

if (Length(edit1.Text) = 12) then
   begin
edit1.Text := edit1.Text + ' ';
     edit1.SelStart := Length(edit1.Text);
end;

if (Length(edit1.Text) = 13) then
   begin
edit1.Text := edit1.Text + ' ';
     edit1.SelStart := Length(edit1.Text);
end;

yaparak sonuca ulaştığımı belirtmek isterim.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Kordinata göre yazı yazma Husv 0 188 19-09-2023, Saat: 23:07
Son Yorum: Husv
  Edit otomatik tamamlama ahmetb 6 3.977 24-03-2023, Saat: 10:19
Son Yorum: sunbeki
  Delphi Edit OnKeyDown Enter Olayı Hk sadoal351 5 1.539 07-11-2022, Saat: 15:53
Son Yorum: mcuyan
  Listview Item -> dynamic appearance edit alanı ekleme vedat33 0 500 19-09-2022, Saat: 10:55
Son Yorum: vedat33
  Edit e yazamıyorum hakankvk 4 1.038 24-08-2022, Saat: 22:42
Son Yorum: hakankvk



Konuyu Okuyanlar: 1 Ziyaretçi