डेल्फी

Question

में सूची बॉक्स के साथ स्ट्रिंगग्रिड को प्रतिस्थापित करना मैं क्रमशः stringgrid1 और stringgrid2 को listbox1 और listbox2 के साथ प्रतिस्थापित करने का प्रयास कर रहा हूं। क्या उनका कोई तरीका है कि मैं इसे कर सकता हूं? यदि listbox ऐसा नहीं कर सकता है तो कोई भी सुझाव दे सकता है कि जानकारी प्रदर्शित करने के लिए stringgrid के बजाय मुझे क्या उपयोग करना चाहिए? मैं डेल्फी के लिए नौसिखिया हूँ।

procedure TForm2.FormCreate(Sender: TObject); 
var i:integer; 
begin 
stringgrid1.ColWidths[0]:=20; 
stringgrid2.ColWidths[0]:=20; 
for i:=1 to 50 do begin 
    stringgrid1.Cells[0,i]:=inttostr(i-1); 
    stringgrid2.Cells[0,i]:=inttostr(i-1); 
    stringgrid2.Cells[1,i]:='0'; 
end; 
    stringgrid2.Cells[1,0]:='name'; 
    stringgrid1.Cells[1,0]:='extension'; 
    stringgrid1.Cells[2,0]:='format'; 
    stringgrid1.Cells[3,0]:='size'; 
    stringgrid1.Cells[4,0]:='date'; 
    stringgrid1.Cells[5,0]:='addres'; 
end; 

procedure TForm2.StringGrid2DblClick(Sender: TObject); 
begin 
if (stringgrid2.Cells[1,stringgrid2.Row]<>'1024') and (stringgrid2.Cells[1,stringgrid2.Row]<>'0') then 
    stringgrid1.Row:=strtoint(stringgrid2.Cells[1,stringgrid2.Row]); 

end; 

अंत:

यह मेरा कोड है।

Procedure HD; 
var i:integer; 
begin 
    for i:=0 to 50 do begin 
    form2.StringGrid1.Cells[1,i+1]:=TABLE[i].name; 
    form2.StringGrid1.Cells[2,i+1]:=TABLE[i].format; 
    if TABLE[i].tip then 
      form2.StringGrid1.Cells[3,i+1]:='folder' 
    else 
      form2.StringGrid1.Cells[3,i+1]:='file'; 
    form2.StringGrid1.Cells[4,i+1]:=inttostr(TABLE[i].nach); 
    form2.StringGrid1.Cells[5,i+1]:=inttostr(TABLE[i].razmer); 
    form2.StringGrid2.Cells[1,i+1]:=inttostr(fat[i]);; 
    end; 
end; 

Answer 1

TStringGrid के बजाय TListView का उपयोग करें। , TListView घटकों के साथ अपने TStringGrid घटकों की जगह उनके ViewStyle को vsReport निर्धारित करते हैं, के रूप में की जरूरत है उनके Columns समूह सेट, और फिर इस रूप में अपना कोड अपडेट:

procedure TForm2.FormCreate(Sender: TObject); 
var 
    i: integer; 
begin 
    // NOTE: this can all be done at design-time so 
    // you don't need to do it in code at runtime! 
    ListView1.Colums[0].Width := 20; 
    ListView2.Colums[0].Width := 20; 
    for i := 0 to 49 do begin 
    ListView1.Items.Add.Caption := IntToStr(i); 
    with ListView2.Items.Add do begin 
     Caption := IntToStr(i); 
     SubItems.Add('0'); 
    end; 
    end; 
    ListView2.Columns[1].Caption := 'name'; 
    ListView1.Columns[1].Caption := 'extension'; 
    ListView1.Columns[2].Caption := 'format'; 
    ListView1.Columns[3].Caption := 'size'; 
    ListView1.Columns[4].Caption := 'date'; 
    ListView1.Columns[5].Caption := 'addres'; 
end; 

procedure TForm2.ListView2DblClick(Sender: TObject); 
var 
    Item: TListItem; 
begin 
    Item := ListView2.Selected; 
    if Item = nil then Exit; 
    if (Item.SubItems[0] <> '1024') and (Item.SubItems[0] <> '0') then 
    ListView1.Selected := ListView1.Items[StrToInt(Item.SubItems[0])]; 
end; 

procedure HD; 
var 
    i: integer; 
begin 
    for i := 0 to 49 do begin 
    with form2.ListView1.Items[i] do begin 
     SubItems[0] := TABLE[i].name; 
     SubItems[1] := TABLE[i].format; 
     if TABLE[i].tip then 
     SubItems[2] := 'folder' 
     else 
     SubItems[2] := 'file'; 
     SubItems[3] := IntToStr(TABLE[i].nach); 
     SubItems[4] := IntToStr(TABLE[i].razmer); 
    end; 
    form2.ListView2.Items[i].SubItems[0] := IntToStr(fat[i]); 
    end; 
end; 

कि, ने कहा कि पर निर्भर करता है के साथ

कैसे और कब TABLE[] और fat[] हैं वास्तव में में भरा जा रहा, तो आप इस सच को TListView.OwnerData गुण स्थापित करने आभासी मोड में listviews डाल करने के लिए से आगे एक कदम लेने के लिए, और फिर गतिशील रूप से आपकी डेटा प्रदर्शित करने के TListView.OnData घटना का उपयोग कर सकता है। इस तरह, आप पूरी तरह से अपने HD() प्रक्रिया से छुटकारा पा सकते, के रूप में अपने डेटा को अब और TListView अपने आप में कॉपी किया जा की जरूरत नहीं है, यह करने के बजाय सीधे TABLE[] और fat[] से प्रदर्शित किया जा सकता जैसे:

procedure TForm2.FormCreate(Sender: TObject); 
var 
    i: integer; 
begin 
    // NOTE: this can all be done at design-time so 
    // you don't need to do it in code at runtime! 
    ListView1.Colums[0].Width := 20; 
    ListView2.Colums[0].Width := 20; 
    ListView2.Columns[1].Caption := 'name'; 
    ListView1.Columns[1].Caption := 'extension'; 
    ListView1.Columns[2].Caption := 'format'; 
    ListView1.Columns[3].Caption := 'size'; 
    ListView1.Columns[4].Caption := 'date'; 
    ListView1.Columns[5].Caption := 'addres'; 
    // 

    ListView1.Items.Count := 50; 
    ListView2.Items.Count := 50; 
end; 

procedure TForm2.ListView2DblClick(Sender: TObject); 
var 
    Item: TListItem; 
begin 
    Item := ListView2.Selected; 
    if Item = nil then Exit; 
    if (Item.SubItems[0] <> '1024') and (Item.SubItems[0] <> '0') then 
    ListView1.Selected := ListView1.Items[StrToInt(Item.SubItems[0])]; 
end; 

procedure TForm2.ListView1Data(Sender: TObject; Item: TListItem); 
begin 
    Item.Caption := IntToStr(Item.Index); 
    Item.SubItems.Add(TABLE[Item.Index].name); 
    Item.SubItems.Add(TABLE[Item.Index].format); 
    if TABLE[i].tip then 
    Item.SubItems.Add('folder') 
    else 
    Item.SubItems.Add('file'); 
    Item.SubItems.Add(IntToStr(TABLE[i].nach)); 
    Item.SubItems.Add(IntToStr(TABLE[i].razmer)) 
end; 

procedure TForm2.ListView2Data(Sender: TObject; Item: TListItem); 
begin 
    Item.Caption := IntToStr(Item.Index); 
    Item.SubItems.Add(IntToStr(fat[i])); 
end; 

Answer 2

यदि आपको स्ट्रिंगग्रिड पसंद नहीं है तो आप रिपोर्ट शैली और एकाधिक कॉलम के साथ एक TListView का उपयोग कर सकते हैं।

Answer 3

दरअसल आप एक सूची बॉक्स में ग्रिड डेटा दिखा सकते हैं, लेकिन यह नौसिखिया के लिए व्यायाम नहीं है। तकनीक LB_SETTABSTOPS संदेश प्रसंस्करण पर आधारित है और Ray Konopka's book में वर्णित है। ListView का उपयोग करना बहुत आसान विकल्प है।

Answer 4

एक लिस्टबॉक्स प्रगणित मूल्यों (प्रांतों, क्रेडिट कार्ड प्रकार, या लिंग के) की एक ऊर्ध्वाधर सूची पकड़ करने का इरादा है, शीर्षकों के साथ नहीं एक बहु कॉलम प्रदर्शन।

यदि आप कुछ बेहतर चाहते हैं, तो आपको एक अधिक शक्तिशाली ग्रिड घटक का उपयोग करना चाहिए, न कि सूचीबॉक्स।

आप TListView का भी उपयोग कर सकते हैं, लेकिन मैं उस नए व्यक्ति के लिए उस दृष्टिकोण की अनुशंसा नहीं करता हूं। मैं सिर्फ दृश्य शैली मोड "vsReport" में TListView के साथ काम करने में बहुत समय बिताया है, और मैं यह भी TStringGrid से अधिक सीमित है, उदाहरण के लिए, यह कोई यथा-स्थान संपादित सहायता प्रदान करता है।

इसके बजाय, एक नए व्यक्ति के लिए, मैं आपको टीस्टिंगग्रिड के साथ रहने की सलाह देता हूं जब तक कि आपको ऐसा करने की आवश्यकता न हो (जिसे आपने निर्दिष्ट नहीं किया है!) जो TStringGrid के साथ नहीं किया जा सकता है, क्योंकि छोटे कोड के लिए आप ' दिखाया गया है, ऐसा लगता है कि TStringGrid ठीक वही करता है जो आप चाहते हैं, और इसलिए ऐसा लगता है कि आप यहां कोई लाभ नहीं के लिए काम कर रहे हैं।

आप वास्तव में क्या करने की कोशिश कर रहे हैं? आपके साथ TStringGrid कोड में क्या समस्या है जो आप नियंत्रण को बदलने के लिए कुछ करना चाहते हैं?

Answer 5

समय के रूप में

से गुजरती हैं - आप शायद अधिक विशेषताएं शामिल करना चाहते हैं। सर्वश्रेष्ठ में से पर होगा VirtualTreeView

• http://www.lischke-online.de/index.php/controls/virtual-treeview
• http://code.google.com/p/virtual-treeview/source/checkout