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
"WALL- E"
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
"WALL- E"
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.
"WALL- E"
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
"WALL- E"
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.
"WALL- E"
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Edit Memo vb. veri girişin nesnelerinde tümünü seç/kopyala/kes işlemleri hk (FMX) pro_imaj 47 2.398 20-04-2020, Saat: 16:17
Son Yorum: Halil Han Badem
  Çözüldü - edit veya başka nesneye focus olmuyor cinarbil 2 328 11-03-2020, Saat: 08:24
Son Yorum: cinarbil
  Ios Uygulama Yazma hk. seydigozegir@gmail.com 18 2.832 09-03-2020, Saat: 16:44
Son Yorum: Fesih ARSLAN
  Klavye'de Edit Text Promt Nasıl Gösterilir pro_imaj 2 260 28-02-2020, Saat: 20:49
Son Yorum: nguzeller
  Firemonkey edit ve memo da @ karakteri beklentili 9 2.389 28-08-2019, Saat: 16:51
Son Yorum: seydigozegir@gmail.com



Konuyu Okuyanlar: 1 Ziyaretçi