Question

delphi 界面中点击按钮创建的窗体为什么在FormCreate中初始化代码？

按钮代码是:
procedure Tneworder.Edit3Click(Sender: TObject);
begin
manselect:=Tmanselect.Create(self);
manselect.ShowModal;
END;

由于我想在三个edit中通过Click事件弹出同一个窗体，但是根据不同的edit在窗体中显示的标题内容和查询SQL不一样，查询出不同的结果，但是不管是在click事件中执行初始化窗体中的属性还是在窗体中的create事件中执行初始化代码都完全无法改变窗体属性，这是为什么？代码肯定是没错的，到底是哪出问题了？

Answer 1

form1中uses unit2而后
var
Form1: TForm1;
afm:Tform2;//添加这个
implementation

{$R *.dfm}

procedure TForm1.Edit1Click(Sender: TObject);
begin
afm:=Tform2.Create(self);
afm.Edit1.text:='Form_Edit1';
afm.Caption:='Form_edit1';
afm.ShowModal;
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
afm:=Tform2.Create(self);
afm.Edit1.text:='Form_Edit2';
afm.Caption:='Form_edit2';
afm.ShowModal;
end;
form2中添加个button、edit、dbgrid、adoquery、datasource、adoconnect各一个，在form2中设置好它们相关属性；
procedure TForm2.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.clear;
sql.text:='select * from tb_1 where field_1='''+edit1.Text +'''';
open;
end;
end;
测试通过.........

Answer 2

代码肯定是错的

Answer 3

一方面

Answer 4

不明白意思....