Question

我想在form2的一段代码中调用form1中edit1.text中内容， Delphi中listbox中内容可不可以修改

具体我是在form2中有个popupmenu,我设置了一个插入选项，我点“插入”就会form2.show，然后form2中有个edit和button，在edit中输入完内容后单击button,该条内容就可以插入进去了，
顺便问下 Delphi中listbox中内容可不可以修改

Answer 1

简单点的：
//form1
//插入
procedure TForm1.N1Click(Sender: TObject);
begin
Form2.Edit1.Text := '';
if Form2.ShowModal = mrOK then
ListBox1.Items.Add(form2.Edit1.Text);
end;

//修改
procedure TForm1.N2Click(Sender: TObject);
begin
if (ListBox1.Count > 0) and (ListBox1.ItemIndex >= 0) then
begin
Form2.Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];
if Form2.ShowModal = mrOK then
ListBox1.Items[ListBox1.ItemIndex] := form2.Edit1.Text;
end;
end;

//form2：
procedure TForm2.Button1Click(Sender: TObject);
begin
ModalResult := mrOk;
end;

追问

谢谢了 昨晚已经实现了， 又是你回答的 ，哈哈，第三题了 ，那我再补充问句，能不能在form2调用form1的adoquery1

追答

呵呵~~可以，例如Edit1.Text := form1.ADOQuery1.Fields[1].AsString;

追问

你是不是专门做Delphi的 太强悍了 每个问题呢都回答了 而且都是对的
昨天那个printdialog是怎么实现了 对不住你了 我没有分
对了 不是EDIT1。TEXT调用 是另外一张表的DBGRID调用 因为DBGRID不是要改属性的DATASOURCE么 现在不能联么

追答

没关系了~~谁叫你在我好友里呢~~呵呵
是啊~~做delphi有几年了，现在真准备转行那~~呵呵
打印的程序
procedure TForm1.Button7Click(Sender: TObject);
var
i: Integer;
PRNText: system.text;
begin
if PrintDialog1.Execute then
begin
AssignPrn(PRNText);
Rewrite(PRNText);
with Printer do
begin
Canvas.Font := ListBox1.Font;
for i := 0 to ListBox1.Count - 1 do
begin
system.Writeln(PRNText, ListBox1.Items[i]);
end;
end;
system.close(PRNText);
end;

end;

uses Printers;