cxgirnde cif tıklayınca sayacı arttırma

[kirve]

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

[DarkEternal]

Delphi olmadan yazdım, yazım hataları olabilir. Fikir vermesi açısından ;

Genel Tanımlamalar ve Editler :

Kod: Tümünü seç

var
i:integer;
Edit1,Edit2,Edit3..... : TEdit;

OnCreate Event ında :

Kod: Tümünü seç

begin
  i:= 0;
end;

OnClick Event ında :

Kod: Tümünü seç

begin
  i := i + 1;
  (FindComponent('Edit'+inttostr(i)) as TEdit).Text := cxGridalan_adi.value;  
end;

[kirve]

pek bi sey anlayamadim yaw ustad kusura bakmayin

[dabaddah]

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

Kod: Tümünü seç

if ed1=1 then 

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

[kirve]

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

[DarkEternal]

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)