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
                Bu Ülkede Yaşamak ;
           Linux Kadar Özgürlükçüdür 
                             Ama 
     Windows Arayüzüne Alışmışsındır 
                          Bir Kere...
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
                Bu Ülkede Yaşamak ;
           Linux Kadar Özgürlükçüdür 
                             Ama 
     Windows Arayüzüne Alışmışsındır 
                          Bir Kere...
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.
                Bu Ülkede Yaşamak ;
           Linux Kadar Özgürlükçüdür 
                             Ama 
     Windows Arayüzüne Alışmışsındır 
                          Bir Kere...
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
                Bu Ülkede Yaşamak ;
           Linux Kadar Özgürlükçüdür 
                             Ama 
     Windows Arayüzüne Alışmışsındır 
                          Bir Kere...
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.
blog.yakupulutas.com
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
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.
                Bu Ülkede Yaşamak ;
           Linux Kadar Özgürlükçüdür 
                             Ama 
     Windows Arayüzüne Alışmışsındır 
                          Bir Kere...
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Edit otomatik tamamlama ahmetb 4 189 14-04-2019, Saat: 18:38
Son Yorum: ahmetb
Question delphi 10.2.3 edit-memo yazı tekrarı Mr.Developer 2 599 05-06-2018, Saat: 11:10
Son Yorum: Mr.Developer
Question Listview Edit Ekleme ve Button Yüksekliği Ayarı elixir84 11 1.348 22-05-2018, Saat: 21:51
Son Yorum: mcuyan
  Sesli yazma gonulali 9 1.004 19-05-2018, Saat: 14:30
Son Yorum: gonulali
  Firemonkey edit ve memo da @ karakteri beklentili 6 863 26-02-2018, Saat: 23:01
Son Yorum: Halil Han Badem



Konuyu Okuyanlar: 1 Ziyaretçi