中科新闻网东明山水水泥怎么样:delphi中如何让form2对form1进行操作？
来源：百度文库 编辑：中科新闻网 时间：2024/05/09 16:21:42
在form2中，增加了uses unit2;
在form2中，增加了uses unit1;
form2中有一个memo1,一个button,当点击button时，memo1第一行的内容会增加到form1的listbox1中，我是用这个命令：
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.ListBox1.AddItem:=form2.Memo1.Lines.Strings[0];
form2.Close;
end;
但是调式出错说no enough actual parameter,请问是为什么啊？
谢谢高手!
在form2中，增加了uses unit1;
form2中有一个memo1,一个button,当点击button时，memo1第一行的内容会增加到form1的listbox1中，我是用这个命令：
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.ListBox1.AddItem:=form2.Memo1.Lines.Strings[0];
form2.Close;
end;
但是调式出错说no enough actual parameter,请问是为什么啊？
谢谢高手!
假设当前活动窗体为Form2
在 Form2的 button 的Click事件中这样写就可以了:
form1.ListBox1.Items.Add(Memo1.Lines[0]);
form1.ShowModal;