CheckListBox'ta her item için bir edit kutusu (COMPONENT)

[ozanyazar]

CheckListBox’ın içinde her item için bir edit kutusu içeren

componente ihtiyacım var.



Unix ortamında ihtiyacımız olan datayı (sıcaklı, basınç, nem vs..)

seçtikten sonra bunun koşullarını da (MAX;NIN;AVG vs..)

seçiyorduk . (informix 4gl ile)

delhi de de bunu yapmak için yukarda bahsettiğimiz gibi bir component var mı, yoksa önerinizi rica ediyorum.

yani CHECLISTEDITBOX diye bir seçenek ihtiyacım var


Ahmet Ünal ÇAM
ahmetunalcam@meteor.gov.tr
(Kendince) Şair-Yazar
http://huzur.sehri.com

[mcihad]

Aslında normal checklistbox ve bir adet editle bu işi halledebilirsin

önce itm diye global bir değişken tanımla

bir adet checklistbox bir adet edit koy form üzerine
checklistbox nesnesinin style özelliğini lbOwnerDrawFixed yap daha sonra
checklistbox nesnesinin onDrawItem olayına

Kod: Tümünü seç

 if odSelected in state then
 begin
   itm:=Index;
   Edit1.SetBounds((Control as TCheckListBox).Left+ Rect.Left,(Control as TCheckListBox).Top+Rect.Top,Rect.Right-Rect.Left+1,Rect.Bottom-Rect.Top+1);
   Edit1.Text:=CheckListBox1.Items[index];
 end
 else
 begin
   with CheckListBox1 do
   begin
     Canvas.Font.Color:=clBlack;
     Canvas.Font.Name:='ms sans serif';
     Canvas.TextOut(rect.Left,rect.Top+((rect.Bottom-rect.Top)-canvas.TextHeight('A'))div 2,Items[index]);
   end;
 end;

kodunu yaz

edit nesnesini onchange olayında

Kod: Tümünü seç

CheckListBox1.Items[itm]:=Edit1.Text;

bu kodu yaz oluyor istedğin şey

[ozanyazar]

Hemen deneyeceğim
Teşekkürler

[ozanyazar]

Gönderdiginiz kod için teşekkür ederim fakat istedigim olay aynen şöyle:
CheckBox+ListBox+Edit kolonlarına sahip bir nesne.Yani nesneye ekleyecegim satırlar işlem sonunda for döngüsünden geçirdiğimde CheckBox seçilip seçilmedigi ListBox adının ne oldugu Edit de ona ne işlem yapacagının kullanıcı tarafından yazıldıgı bir nesne.Yazmış oldugunuz kodda iki kolon var ve edit her kolon için konumlanıyor.Yardımlarınızı bekliyorum

[ozanyazar]

Bu konuda çözüm önerisi olan yok mu arkadaşlar !...