一个窗体上的BUTTON，去控制另一个窗体的控件

Question

我的DELPHI的新手，写了段代码，里面有2个FORM，我想用FORM2的BUTTON,去控制FORM1上的控件该如何写，给个简单的小例子就可以了，谢谢各位大哥啦~！

Answer 1

implementation
{$R *.dfm}uses
  Unit2;  //将form2引用进来procedure Form1.ButtonClick(Sender: TObject);
begin
  form2.Edit1.Text := 'hello world';  //将form2上的edit1控件的Text属性修改为hello world
end;

Answer 2

uses
  Unit1;  procedure Form2.ButtonClick(Sender: TObject);
begin
  form1.Edit1.Text := 'hello world';  
end;

Answer 3

implementation
{$R *.dfm}uses
  Unit1;  //将form1引用进来procedure Form2.ButtonClick(Sender: TObject);
begin
  form1.Edit1.Text := 'hello world';  //将form1上的edit1控件的Text属性修改为hello world
end;呵呵，这个更合楼主的意思

Answer 4

implementation
{$R *.dfm}uses
  Unit1;  //将form1引用进来procedure Form2.ButtonClick(Sender: TObject);
begin
  form1.Edit1.Text := 'hello world';  //将form1上的edit1控件的Text属性修改为hello world
end;二楼即能满足楼主需求，我是来蹭分的！哈哈

Answer 5

相互引用太多不好的...有了这一次，以后就更多了...用发消息吧定义一个常用单元 uConst里面写interface
uses
  Messages;
const
  CM_ClickForm1Button=WM_USER+$100;在Form2的引用这个uConst单元procedure Form2.ButtonClick(Sender: TObject);
begin
  //比如Form1是Form2的拥有者
  SendMessage(TWinControl(Owner).Handle,CM_ClickForm1Button,0,0);//后面两参数你可以定义值
end;在Form1中
的interface引用uConst单元
下面在Form1的protected 下
 procedure CMClickForm1Button(var Message:TMessage);message CM_ClickForm1Button;在下面
procedure TForm1.CMClickForm1Button(var Message:TMessage);message CM_ClickForm1Button;
begin
  edt1.Text:='Hello World';
end;
我觉得养成这个习惯比那样实现功能要好..