谁能告诉我怎么样从form2里修改form1里的LISTVIEW1里的数据?

Question

谁能告诉我怎么样从form2里修改form1里的LISTVIEW1里的数据?

Answer 1

方法1：Form2引用了Form1了，直接使用Form1.listview1就可以了
方法2：Form1调用的Form2，可以把listview1对象传到form2里面，form2里添加一个Tlistview变量或方法参数是Tlistview类型的，然后在form2里操作传进来的listview对像就行了

Answer 2

logne
    
  我是在FORM2里引用FORM1里的LISTVIEW，但是在运行的时候就报错,有没有可以参考的代码让我看看，这个问题困了我很久了！

Answer 3

比如修改"column":
在From1窗口的事件中写:
form1.ListView1.Items[0].Caption := 'srsfds';

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(nil) do
  begin
    try
      ShowModal;
    finally
      free;
    end;
  end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Edit1.Text := 'aa';
end;在Uses中互相引用。不过不建议这样使用。

Answer 5

建议不要这样用,引来引去的,代码之间藕合得太严重..这两个FORM根本就不能折开了..
可以定义几个公有事件:
Form2...
public 
  procedure SetListValue();
  function GetListValue:..;
这样,在FROM1里调用,也明白一些.(其实即便是这样,藕合也很重)
最好不要直接在FROM1里调用FORM2里的控件啊,变量啊,什么之类..当然,FROM少了,也无所谓..

Answer 6

polly_110() 说得没错！
藕合很强的话，维护起来骂人的想法都有：）