Listbox控件的使用问题???

[nkzgj]

我在一个Listbox控件里有若干条Item,用弹出式菜单进行操作。
想选一条记录删除，或在末尾添加一条目，而新条目的名称由键盘键入，请问应分别在菜单的OnClick事件里怎么实现？

[torble]

我不明白你的问题

[王集鹄]

type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
Delete1: TMenuItem;
Insert1: TMenuItem;
ListBox1: TListBox;
procedure Delete1Click(Sender: TObject);
procedure Insert1Click(Sender: TObject);
procedure PopupMenu1Popup(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Delete1Click(Sender: TObject);
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TForm1.Insert1Click(Sender: TObject);
begin
ListBox1.Items.Insert(ListBox1.ItemIndex, InputBox('Input', 'String:', ''))
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
Delete1.Enabled := ListBox1.ItemIndex >= 0;
end;

//////////////////
object ListBox1: TListBox
Left = 8
Top = 0
Width = 161
Height = 137
ItemHeight = 13
PopupMenu = PopupMenu1
TabOrder = 0
end