Delphi Forum

herkese kolay gelsin... bir TAB tuşu baya işler açtı ASLANGERİ kardeşim ve diğer üstadlar sayesinde sorunu aştık ÇOK ŞÜKÜR.. Akşam yemekten sonra dinlenirken şimşekler çaktı :idea: ve farklı bir çözüm daha buldum... AMACIM editten çıkmak için enter tuşuna basmaktı.(kendimce barkodlu bir sistem oluşt...

ASLANGERİ kardeşim Allah senden ve tüm formdan RAZI olsun.... ya ufacık bir tab tuşu başımıza ne işler açtı yaa... ama dediğin gibi azmin elinden hiçbirşey kurtulmuyor... peki birşey daha rica etsem çokmu olor acaba? :oops: SHORTCUT olayını başka hangi işlemler için kullanabiliyoruz acaba Tekrar her...

bu mesajın önemi kalmamıştı...

evet.. hiç zaman kaybetmeden yaptım... sonuç: 1 tuşuna bastım. key değişkeni üzerinde bekledim ve key='1' değerini aldım.. aynı işlemi birkaç farklı tuş ile de denedim..(yeni bişey öğrendik ya :lol: çocuk gibi oynuyomm...) ve esas bomba... TAB tuşuna bastım ama banamısın demeden zıpladı.. :duvar: ya...

eğer BREAKPOİNT olayı showmessage veya benzeri birşey ile kodun kontrolü ise sadece adına yabancıyım :oops: birkaç yol daha denedim ama sonuç yok.. if key = chr(vk_tab) then begin key := #0; end; olayı da çalışmadı... denemek için showmessage ekledim...Her iki durumda da showmessage alamadım. yani t...

ASLANGERİ demişki

(ve keyprevec true ise) önce formun keypres eventi çalışır.
bide break point koyup çalışıp çalışmadığına bak istersen.

o zaman bir sorum daha olacak..

BREAKPOİNT ne amaçla kullanılıyor? ve nasıl kullanabilirim?

ee ne de olsa çaylağız

valla hocam tam aradığm şey bu... çok teşekkür ederim. ama kod çalışmadı. :duvar: procedure Tstok_giris.Edit2KeyPress(Sender: TObject; var Key: Char); begin if key = #9 then begin key := #0; end; if key = #13 then begin ..... end; acaba sebebi ne olabilir... :?: yani sonuç olarak bunlar stansart kod...

hocam bu ne hızz. :shock: valla size yetişebilmek ne mümkün :!: yanlız hocam olay biraz farklı.. barkod okutuyorum.. eger değeri elle girerse tab tuşuyla çıkmaması lazım... yani ENTER tuşuna basıldığı zaman bazı sorgulamalar yaptırıyorum. if key <> #13 then edit1.setfocus; Key:=#0; yapısını kullandı...

S.A. herkese kolay gelsin... formda ve bakabildiğim diğer kaynaklarda raslayamadım ve en güzel kaynaktan yardım istemeyi tercih ettim... TAB tuşuna basıldığı zaman bulunulan konumdan (edit nesnesinden) ayrılmamasını istiyorum.. http://www.delphiturkiye.com/forum/viewtopic.php?t=2104&highlight=ta...

zaten sen bu kodu butonun altına yazacaksın.. kullanıcı edit nesnelerine 1: toplam borcu, 2: genel taksit tutarını, 3: taksit sayısını girecek... taksit hesapla butonu nu tıkladığında (kodları yazcağın buton) otomatik olarak taksitleri hesaplayıp veri tabanına yazacak... kodları butona yaz ve değerl...

o zaman sabit taksit tutarını artırırsın...

sabit taksit=45.000.000
taksit sayısı= 5

son taksit = 20.000.000

şeklinde halledersin

S.A. tablonda taksit sayısını tutmana gerek yok.. edit1 = taksit sayısı => 5 edit2 = sabit taksit tutarı => 35.000.000 TL. edit3 = toplam borç => 200.000.000 TL. bu değerleri edit nesneleri ile al.. ***tabi istersen tarihleri de ekleyebilirsin.. procedure button1.click; var birim_taksit:double; taks...

//genel toplam = 200,000,000 //taksit = 5 //birim_taksit = 35,000,000 birim_taksit:=strtofloat(edit1.text); //edit nesnesi ile alıyosun taksit_sayi:=strtoint(edit2.text); //edit nesnesi ile alıyosun for i:= 1 to ( taksit_sayi - 1 ) do // ilk 4 taksiti veritabanına yazıyor.. begin tablo.insert; tabl...

kolay gelsin. Dediğin olay için taksit sayısının bir eksiğine bölüp döngü içinde her taksit değerini istediğin oranda artırabilir ve kalanı da son taksit olarak yapabilirsin diye düşünüyorum... tutar := 100,000,000 taksit_sayi := 5 taksitler:=tutar / (taksit-1) for i:=1 to 4 do begin taksitler+4,000...

hocam çayı yeni içiyom...

haftanın ilk günü olmasının da etkisi var..