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

Posted 2023-03-24

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

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

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;
测试通过......... 参考技术A 代码肯定是错的 参考技术B 一方面 参考技术C 不明白意思....

c#如何单击按钮显示另一个窗体

在vs2010中，我想单击form1中的一个button，弹出form2，form2是我设计的另一个页面
怎么操作？如果不能实现，有没有类似能弹出另一页面的方法？

工具/材料：以Microsoft Visual Studio 2010为例。

1、首先点击“Microsoft Visual Studio 2010”图标，打开软件。

2、然后在该界面中，右键点击右侧项目，选择“添加”选项。

3、之后在该界面中，点击“Windows窗体”选项，创建新窗体。

4、接着在该界面中，点击左侧“工具箱”里的“Button”选项，拖到界面里。

5、之后在该界面中，双击“button1”控件。

6、最后在该界面中，写入“Form5 fm = new Form5();fm.ShowDialog();”代码即可。

参考技术A private void button1_Click(object sender, EventArgs e)

Form2 f = new Form2();
f.Show(); 本回答被提问者采纳 参考技术B form frm2=new form2();
frm2.show();
我没开程序，大概是这个意思 参考技术C 代码：
protected void ButtonAddNewUser_Click(object sender, EventArgs e)

//在这里加入事件,然后去点击btnDel_Click的时候就会弹出
if (Page.IsPostBack)

btnDel.Attributes.Add("onclick", "return confirm('确定删除？')");


protected void btnDel_Click(object sender, EventArgs e)

//这个事件可以不存在,但是当按下这个按钮的时候就要弹出一个对话框窗口
//所以,我们可以把上面那段事件放于

//放于这个事件中
protected void Page_Load(object sender, EventArgs e)

//在这里加入事件,然后去点击btnDel_Click的时候就会弹出
if (Page.IsPostBack)

btnDel.Attributes.Add("onclick", "return confirm('确定删除？')");