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 ...

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 ...

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 ...

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 ...

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 ...

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ı ...

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 ...

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 ...

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 ...

//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 ...

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 ...

hocam çayı yeni içiyom...

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