Listbox'ın columlerine kayıt eklemek

[tuanna]

ben listboxta colum oluşturup columlere veri yazmak istiyorum nasıl yapabiliiriz....

[mrmarman]

- TabWidth belirleyerek yapabilirsin... Ama önerim StringGrid yönündedir...

Kod: Tümünü seç

  With ListBox1 do
  begin
    TabWidth := 100;
    Items.Add('Birinci Kolon');
    Items.Add(#9'İkinci');
    Items.Add(#9#9'Üçüncü');
    Items.Add(#9#9#9'Dördüncü');
  end;

[tuanna]

olmadı muharrem hocam

[mrmarman]

verdiğim örnek mi çalışmadı ?

[tuanna]

yani benim dediğim bu değildi aslında ama işmdi başka bir sey yapacamda

hani popupta oluşturduğum nesneleri siliyordum ya
şimdi popupta oluştrduğumnesnenin adı lazımnasıl olacak söle yazdım olmadı

popopmenu1.poppcomponent.name;

mesajla bunu gösterdiğimde boş değer dönüyor...

[ademcicek]

eğer ki hocam ismiyle bir yapmıyacaksan yani sen onun hangi buton olduğunu anlamak için yapacaksan bu işlemi bence tag özelliğini kullan. kolay gelsin.

[mrmarman]

- Nesneyi create ettiğiniz yerde isim vermeyi ihmal etmişseniz isim boş gelir..

- Nesne create edilirken ilk iş isim vermeyi unutmamak ve ismin benzersiz olmasını sağlamak.

- Bunun için localde Const değişken kullandım dikkat edersen... Procedure her çalışışında SAYAC eskiden kaldığı yerden devam eder. Bunun için Global bir değişken de kullanabilirsin...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject); 
Const 
{$j+}  Sayac : Integer = 0; {$j-} 
Var 
  YeniPanel : TPanel; // Uses ExtCtrls 
begin 
  Inc(Sayac); 
  YeniPanel := TPanel.Create(Form1); 
  With YeniPanel do 
  begin 
    // İlk iş isim vermek. İsim benzersiz olmalı. 
    // Bunun için localde Const değişken kullandım dikkat edersen...
    Name      := Format('Panelim_%.2d', [Sayac]); 
    Parent    := Form1; 
    Caption   := Name; 
    Width     := 100; 
    Height    := 100; 
    Left      := (15 * Sayac); 
    Top       := (15 * Sayac); 
    PopUpMenu := PopUpMenu1; 
  end; 
end;

[miskin]

ben listboxta colum oluşturup columlere veri yazmak istiyorum nasıl yapabiliiriz....

niye TStringgrid kullanmiyorsun?

[miskin]

Bu sorunun yeri burasi degil.
Daha önce actigin thread'i kullanirsan daha olumlu.

yani benim dediğim bu değildi aslında ama işmdi başka bir sey yapacamda

hani popupta oluşturduğum nesneleri siliyordum ya
şimdi popupta oluştrduğumnesnenin adı lazımnasıl olacak söle yazdım olmadı

popopmenu1.poppcomponent.name;

mesajla bunu gösterdiğimde boş değer dönüyor...

[tuanna]

muharrem hocam...

kuullandığımkod blogu su

ciz:=tpanel.Create(self);
if ((xekseni<ortailkcetvel.Left) and (xekseni > solcetvel.Left) and (yekseni < altcetvel.Top)and (yekseni > ustcetvel.Top)) then
begin
ciz.PopupMenu:=popupklavuz;
ciz.Parent:=pnlresim;
ciz.Left:=solcetvel.Left;
ciz.Top:=yekseni;
ciz.Height:=3;
ciz.Width:=ortailkcetvel.Left-solcetvel.Left;
ciz.Color:=clred;
pnlresimdosyalari.Caption:= 'İşlem ypaılan Resim Dosyası'+'X ekseni '+inttostr(xekseni)+'y ekseni '+inttostr(yekseni);
solnoktaid:=solnoktaid+1;
ciz.Name:='solnokta'+inttostr(solnoktaid);
// ciz.Caption:='';
ShowMessage(ciz.Name);

[tuanna]

ya oldu
abiler sağ olun ya
ben compoennti free edince tabikiismide kalmıyor...kodu kontrolettim sonunda oldu işte

[karflake]

//Konudışı

Kod: Tümünü seç

...
procedure TForm1.Button1Click(Sender: TObject); 
Const 
{$j+}  Sayac : Integer = 0; {$j-} 
...

@mrmcop; yukarıdaki şekilde const kullanımı {$j+} derleyici direktifi olmadan çalışmıyordu. Epey zamandır(30 Ağustos 2002 08:16'dan beri) merak ettiğim bir konuyu açığa kavuşturdunuz, teşekkürler.