arkadaslar cxgrinde cift tıklayarak secili olan bilginin edita aktarmasini yaptim.
ama simdi soyle bi sorunum var
cxgirnde 1. tıklamamda cxgrindeki secli olan bilgi edit1 e gidiyor yapmak istedigim
cxgrinde 2. kere tıkladıgımda edit1deki bilgi kalsın secili olan bilgi edit 2 ye gitsin
3.kere tıklamada edit3 e gitsin.. bunu dongu ile yapmaya calistim ama bi turlu basarılı olamadım
cxgirnde cif tıklayınca sayacı arttırma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- DarkEternal
- Üye
- Mesajlar: 158
- Kayıt: 19 Eki 2005 11:00
Re: cxgirnde cif tıklayınca sayacı arttırma
Delphi olmadan yazdım, yazım hataları olabilir. Fikir vermesi açısından ;
Genel Tanımlamalar ve Editler :
OnCreate Event ında :
OnClick Event ında :
Genel Tanımlamalar ve Editler :
Kod: Tümünü seç
var
i:integer;
Edit1,Edit2,Edit3..... : TEdit;
Kod: Tümünü seç
begin
i:= 0;
end;
Kod: Tümünü seç
begin
i := i + 1;
(FindComponent('Edit'+inttostr(i)) as TEdit).Text := cxGridalan_adi.value;
end;
kısa kısa yazılım...
http://TKorhan.blogspot.com/
http://TKorhan.blogspot.com/
Re: cxgirnde cif tıklayınca sayacı arttırma
pek bi sey anlayamadim yaw ustad kusura bakmayin
Re: cxgirnde cif tıklayınca sayacı arttırma
edit1'i edit2'yi ve edit3'ü temsil edecek 3 adet integer tipinde değişken tanımla butona 1. tıklamanda edit1 için atadığın değişkene "1" yazdır.
sonra bu kodun altına(ed1 edit1 için atadığın değişken) edit2 için atadığın değişkene "2" yazdır. bu gibi aralardada işlemlerini yaptıra bilirsin benim bu yazdığım kodlar sadece butonun kaçıncı tıklaman olduğunu kontrol etmen için gerekli fikir ben buraya tam çalışan kodu yazarım ama senin çözmen daha iyi olacaktır.
allah kolaylık vere başarılar.
sonra bu kodun altına
Kod: Tümünü seç
if ed1=1 then
allah kolaylık vere başarılar.
insanın özü tanımasına engel olan perdeleri;
1.kendini beden sanma
2.vehmî benlik
3.beş duyu blokajları
4.toplumsal şartlanmalar ve şartlanmaların oluşturduğu değer yargıları ve değer yargılarından gelen duygular
kişi bu perdelerden arınmadıkça göresel kozasında yaşar ve bir ipek böceği gibi kaynar kazana atılır.
1.kendini beden sanma
2.vehmî benlik
3.beş duyu blokajları
4.toplumsal şartlanmalar ve şartlanmaların oluşturduğu değer yargıları ve değer yargılarından gelen duygular
kişi bu perdelerden arınmadıkça göresel kozasında yaşar ve bir ipek böceği gibi kaynar kazana atılır.
Re: cxgirnde cif tıklayınca sayacı arttırma
soyle yaptim ama 4 tane edit koydum forma dedimki
if edit1.text=' ' then
begin
edit1.text:=inttostr(1)
end else
begin
if edit1.text=1 then
begin
edit2.text:=inttostr(2)
end else
if edit2.text=2 then
v.s v.s bu sekilde yaptim birinci tıklamamda edit1 ici bossa 1 yazıyor ikinci tıklamamda edit1 icinde 1 varsa edit2 ye 2 yazıyor ama edit2 icinde 2 yazıyorsa dedim
edit3 icine 3 yaz dedim bi turlu yazmadı ..
mantıgı dogru anlayamadım herhalde
if edit1.text=' ' then
begin
edit1.text:=inttostr(1)
end else
begin
if edit1.text=1 then
begin
edit2.text:=inttostr(2)
end else
if edit2.text=2 then
v.s v.s bu sekilde yaptim birinci tıklamamda edit1 ici bossa 1 yazıyor ikinci tıklamamda edit1 icinde 1 varsa edit2 ye 2 yazıyor ama edit2 icinde 2 yazıyorsa dedim
edit3 icine 3 yaz dedim bi turlu yazmadı ..
mantıgı dogru anlayamadım herhalde
- DarkEternal
- Üye
- Mesajlar: 158
- Kayıt: 19 Eki 2005 11:00
Re: cxgirnde cif tıklayınca sayacı arttırma
Yapmak istediğiniz bu sanırım...
Kod: Tümünü seç
if edit1.text='' then
edit1.text:=inttostr(1)
else if edit2.text='' then
edit2.text:=inttostr(2)
else if edit3.text='' then
edit3.text:=inttostr(3)
kısa kısa yazılım...
http://TKorhan.blogspot.com/
http://TKorhan.blogspot.com/