Question

delphi listbox 问题

如上
假如 我要在 LISTBOX 设置右键选单 然後开启MEMO的选单 然後 在里面编辑文字
然後编辑完设定一个 储存按钮 之後LISTBOX 就会写入 MEMO的内容 这种要怎写呢?

Answer 1

你的主要功能实现是通过在memo控件中输入文本再快速传递到listbox控件中对吧？
由于memo是一个控件，无法单独存在，所以你要实现这个必须再建立一个窗体，在窗体中放个memo控件个一个触发用的按钮控件，
在按钮控件中写传递代码：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do //通过返回的memo控件中内容 行数遍历memo控件内容
listbox1.Items[i]:=memo1.Lines[i];
end;
就这么简单，遍历语句对于这样的值传递是最有效的
这是弹出一个新窗口的方法，另外也可以再同一个窗体中事先放置memo控件，预设为隐藏状态，然后从listbox的右键菜单中show出来实现

Answer 2

procedure TForm1.N1Click(Sender: TObject);
begin
if not Assigned(form2) then
begin
try
form2 := Tform2.Create(application);
form2.memo2.Lines := lst1.Items;
if form2.ShowModal()=mrok then
begin
lst1.Items:=form2.memo2.Lines;
end;
finally
freeAndNil(form2);
end;
end;
end;
放一个右键弹出菜单控件，设置list的PopupMenu属性为右键弹出菜单

procedure TForm2.btn1Click(Sender: TObject);
begin
ModalResult:=mrOk;
end;

procedure TForm2.btn2Click(Sender: TObject);
begin
ModalResult:=mrCancel;
end;
使用手动创建模式窗口，然后再使用ModalResult:=mrOk;保存 / ModalResult:=mrCancel;取消
运行前先设置form2不自动创建。project—>options 选中form2添加到右边的框里。

Answer 3

Delphi ListBox的右键菜单开启窗口编辑后返回

在LISTBOX设置右键菜单，选中其中的项目后，开启一个窗口，在MEMO里面编辑文字，按一个储存按钮，MEMO的内容就会写入到LISTBOX之中，这种程序要怎写呢?

中国话都不会说！别老那么多然后然后的，罗嗦，烦不烦？中国话里有很多词的意思是一样的，就是用来解决令人讨厌重复。