請問一下喲.... 可以在listbox用items建立東西在裡頭... 那假如有天想增加、刪除及修改的話，用button裡去寫程式 要怎麼連接到items裡再繼續建立呢...?? 教教我....>"< 謝謝.........................................

//新增 procedure TForm1.Button4Click(Sender: TObject); begin ListBox1.Items.Add('新增的'); end; //删除所选择的 procedure TForm1.Button5Click(Sender: TObject); begin ListBox1.Items.Delete(listbox1.ItemIndex); end; //改变所选择的 procedure TForm1.Button6Click(Sender: TObject); var i:integer; begin i:=listbox1.ItemIndex; ListBox1.Items.Delete(i); listbox1.Items.Insert(i,'改变的'); end;

引言: 請問一下喲.... 可以在listbox用items建立東西在裡頭... 那假如有天想增加、刪除及修改的話，用button裡去寫程式 要怎麼連接到items裡再繼續建立呢...?? 教教我....>"< 謝謝......................................... 我的意思是想可不可以按button(有新增、刪除和修改3個button) 就可以連接到items裡面建立想要的或不想用了要刪的或是有想改善的!! 拜託你一下囉..........

或许说我不太理解你的意思， 上面不就是用3个按钮来实现新增、刪除和修改listbox的吗？！！！ 分别是Button4、Button5、Button6的单激时间呀.

引言: 就可以連接到items裡面建立想要的或不想用了要刪的或是有想改善的!!

不好意思! 請問連接到items裡面是什麼意思? 可否再詳細說明一下! 我想sos_admin前輩解釋得蠻清楚的啊!

引言: 就可以連接到items裡面建立想要的或不想用了要刪的或是有想改善的!!

難道您想在ListBox中編輯嗎?

我知道你的意思..也試過你說的程式... 可是按下按鈕只會在listbox裡改變而已...而無法改變.... 我是想問問譬如按下新增的按鈕後，它會能連到能在裡頭建立資料的"items".. 然後建好後按ok...它又會在listbox底下新增!!! 不好意思...我讓你聽得霧煞煞的!! sorry............^ ^" 希望這次的說明你能幫幫我....謝謝....

love821 ，    不好意思还是不懂，晕~~~~ 可是按下按鈕只會在>而無法改變什么 我是想問問譬如按下新增的按鈕後，它會能連到能在裡頭建立資料的">是不是按了[新增]按鈕后就可以加入资料了，然后按[>

^.^love821的意思我想是要調用設計期的那個String List Editor視窗， 然後直接進行編輯ListBox的Items,其實是個很有意思的想法（在運行 期調用定義的屬性編輯器），不過我不知道是否可行，什麼時候可以去試 一試^.^ 針對這個問題，你可以自己寫一個和String List Editor一樣的窗 口，也很簡單，放一個Memo，打開視窗時取得列表： Memo1.Lines.Assign(ListBox1.Items); 在Memo中編輯完畢確認後： ListBox1.Items.Assign(Memo1.Lines); 至於什麼增加、修改按鈕都不必要了，反正在Memo中，想怎麼樣就怎麼樣^.^

您好﹗    小弟似乎有些聽懂您的意思了﹐是不是有對應ListBox的對話窗口出現﹐讓使用者對其進行操作﹐從而變更ListBox里面的Items﹒ 請在Form中加入ListBox元件﹐四個Button分別代表新增﹐刪除﹐清除﹐修改﹒請參考下列程式碼﹕    新增Button的Onclick事件

var
  DefStr : String;
begin
  DefStr := '資料';
  if InputQuery('請輸入TListBox的資料項目','項目資料:',DefStr) then
  ListBox1.Items.Add(DefStr);
end;    刪除Button的OnClick事件
begin
  ListBox1.Item.Delete(ListBox1.Itemindex);
  ShowMessage('已經刪除當前的資料');
end;    清除Button的OnClick事件
begin
  ListBox1.Clear;
end;    修改Button的OnClick事件
var
  DefStr := String;
begin
  if (ListBox1.Items.Count > 0) and (ListBox1.ItemIndex >= 0) then
  begin
    DefStr := ListBox1.Items[ListBox1.ItemIndex];
    if InputQuery('請輸入新的項目內容','項目新內容:', DefStr) then
      ListBox1.Items[ListBox1.ItemIndex] := DefStr;
  end;
end;

以上新增和修改是利用InputQuery對話方塊來抓取使用者的輸入內容﹐參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/08/15 15:43:40

------
忻晟

love821你好: 你的意思是這樣吧!! LISTBOX1 ------------- 1 2 3 ------------- 當 2 被刪除變成 ------------- 1    3 ------------- 而小姐你要他變成 ------------- 1 3 ------------- 對吧!! 那 Rain 大大就是正解了!! 請他幫你寫吧!!     

引言: 呼叫 Rain Rain Rain .......

收到，長官 > 這邊還有一個間接的方法可以用，就是把 $> class="code"> uses StringsEdit; procedure TForm1.Button1Click(Sender: TObject); var AStringsEditDlg: TStringsEditDlg; begin AStringsEditDlg := TStringsEditDlg.Create(Self); try AStringsEditDlg.Lines.Assign(ListBox1.Items); if AStringsEditDlg.ShowModal = mrOK then ListBox1.Items.Assign(AStringsEditDlg.Lines); finally AStringsEditDlg.Free; end; end; //最近胡思亂想，回復帖子也是經常文不對題，罪過罪過^.^但願別又誤導了小妹妹，WUWUWU~~閉門思過去了~~~