Kuruşlu para girişi

[sturen]

Mrb;

2 haneli kuruş kısmıda dahil ,sağa yaslamalı adam gibi çalışan para girişi yapabileceğim bir companente ihtiyacım var. Daha önce muhasebe programı yazmış olanlar bilir. Var mıdır?

Şimdiden teşekkürler;

[mussimsek]

Bu iş için componente gerek yok. Dataset'in display ve editformat'larını kullanarak bu işi halledebilirsin. @Husonet böyle bir component yazmıştı yanlış hatırlamıyorsam.

Kolay gelsin.

[sturen]

Veri tabanına kayıt yapmayacağım. Dolar,Euro,Tl dönüşümü için çalışıyorum. Ama biraz daha kompleks şekilde. Şöyleki paraları temsil eden 3 edit var. Hangi editte işlem yaparsan yap değer girildiği gibi diğer ikisinde karşılığı hesaplanıyor. Dahada fazlası var aslında ama bu kadarı çalışsa kafi. Bunu jquery ile web tabanlı olarak yaptım ve sorunsuz çalışıyor. Şimdi delphiye uyarlamak istiyorum. Birçok örneğe baktım bazı companentleri denedim istediğim gibi çalışmıyor. Yazılan rakamlar input terkedildikten sonra binlik ve kuruş hanesine dönüyor. Ben her rakam girişi yapıldığında edit otomatik yapsın istiyorum. Editin KeyUp ve Keypress özelliğini kontrol ederek bir şeyler yaptım aslında. Doğru sınırlama ve kısıtlamalar ile kuruş hanesi olan virgülden öncesi ve sonrasını kontrol edebiliyorum şuan.

Sonunda TEdit(Sender).Text:= formatFloat('#,###.#0', strtoCurr(sayi)); komutu ilede Edit'i istediğim şekilde biçimlendirmiş oluyorum. Çözüme çok yaklaştım şuan sıkıntım imleçte. TEdit(Sender).Text:= formatFloat('#,###.#0', strtoCurr(sayi)); komutundan sonra input içeriği değiştiği için imleç sayının başına yani sıfır konumuna geliyor. Edit'in Selstar özelliği ile imleci kontrol edip biçimlendirmeden önce sayının neresinde olduğunu (sayımız 123,44 olsun 5 rakamını eklemek isteyelim. 5 rakamını 1 den sonra eklemişte olabiliriz 2 den sonra hatta 4ün başında ve sonunda olabilir.) hesaplayıp biçimlendirmeden sonra oraya konumlamaya çalışıyorum. Nedense iş binler basamağına gelince bozuluyor. Binler basamağında sayıya nokta ayracı (5.123,44 gibi) ekleniyor. Bunun etkisi sayının karakter uzunluğunu bir arttırmaktan öte. Selstar işe yaramıyor. Milyonlara çıktığımızı düşünürsek (98.543.123,44) her nokta ayracından sonra selstar değeri sıfır oluyor. Yani selstar 1 ise imleç 9 dan sonrada olabilir, 5 ten sonrada 1 den sonrada. Çözüm ?

Not: Tam sayı uzunluğunu 3e göre Mod alıp denedim olmadı yada ben beceremedim.

[SimaWB]

TMaskEdit

[sturen]

MaskEditte #,###.#0 gibi hane tanımlaması yapmak lazım. Milyon hane tanımlayıp bin hane girişi yapılırsa mask tamamlanmamış olur. Yanılıyor muyum?

TMaskEdit

[cinarbil]

PBNumEdit kullanıyorum. çok kullanışlı istediğiniz gibi özelleştirebiliyorsunuz.

lazım olduğunda urunfiyat.text derseniz sitring döndürüyor urunfiyatı.float veya integer gibi kullanabiliyorsunuz kesinlikle tavsiye ederim ücretsiz.

aynısının PBdbedit olanı var


http://bak-o-soft.dk/Delphi/PBEditPack.aspx bilginize

[sturen]

Teşekkürler;
Lakin geçen sürede key press eventını dikkate alarak kendi editimi kendim yarattım.
Böylesi daha iyi oldu. Yalnız bir noktada takıldım.
DELETE tuşu.
keypresste delete tuşu nedense engellenemiyor.Biraz araştırdım hep klasik Key = #... eşitliğini göstermişler çözüm olarak. Ama işe yaramıyor. DELETE tuşunu etkisiz kılmam lazım. Onuda yaparsam süper olacak.

Bilen var mı?

PBNumEdit kullanıyorum. çok kullanışlı istediğiniz gibi özelleştirebiliyorsunuz.

lazım olduğunda urunfiyat.text derseniz sitring döndürüyor urunfiyatı.float veya integer gibi kullanabiliyorsunuz kesinlikle tavsiye ederim ücretsiz.

aynısının PBdbedit olanı var


http://bak-o-soft.dk/Delphi/PBEditPack.aspx bilginize

[xozcanx]

Teşekkürler;
Lakin geçen sürede key press eventını dikkate alarak kendi editimi kendim yarattım.
Böylesi daha iyi oldu. Yalnız bir noktada takıldım.
DELETE tuşu.
keypresste delete tuşu nedense engellenemiyor.Biraz araştırdım hep klasik Key = #... eşitliğini göstermişler çözüm olarak. Ama işe yaramıyor. DELETE tuşunu etkisiz kılmam lazım. Onuda yaparsam süper olacak.

Bilen var mı?

PBNumEdit kullanıyorum. çok kullanışlı istediğiniz gibi özelleştirebiliyorsunuz.

lazım olduğunda urunfiyat.text derseniz sitring döndürüyor urunfiyatı.float veya integer gibi kullanabiliyorsunuz kesinlikle tavsiye ederim ücretsiz.

aynısının PBdbedit olanı var


http://bak-o-soft.dk/Delphi/PBEditPack.aspx bilginize

Merhaba;
if Key = #127 then şeklinde denediğinizde nasıl bir sonuç alıyorsunuz?

[sturen]

KeyDown Event'ına eklenen aşağıdaki kod ile olay çözülmüştür.

Herkese teşekkürler;

Kod: Tümünü seç

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_DELETE then begin
    Beep;
    Key:= 0;
   end;
end;