unit Unit2 ;//<-----你添加這個幹嘛啊?
解决方案 »
- TProgressBar在更新进度的时候,能够显现百分比吗?在线等^^^^^^^^^^^^^^^^^^^^^^^^^^!!
- 调用储存过程为何出错
- 如何处理socket异常
- 痛苦的自定义过程。
- 请问大家,BDE +SQL SERVER 2000 要怎样才能连上数据库啊!急求!
- 用拨号作客户端的刷卡程序!怎样最优化SQL语句来更新客户端用户信息验证数据表?100
- replacedialog 的问题,急啊!
- 怎样在dbctrgird中实现数据感知控件来分别源于不同的datasource?
- Delphi6新增功能大家谈
- 一段导入CSV文件WIN 7 64位下异常!
- 请教大家一个问题:pc唤醒触发了什么事件
- 怎样设置xe3/xe4/xe5可以在设计状态下拖动Form?
那要怎么弄啊,我不太懂,就是凭感觉
以上的问题有点错误,Form1的Button事件中代码是这样的:
procedure TForm3.Button2Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
end;
2,你是引用unit2單元,而你也已經做到了,uses Unit2;
3,你要的
implementation
uses Unit2;{下面是實現代碼,和BCB很相近吧?}
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
form2.Show;
end;
TForm *frm=new TForm2(Application);
frm->ShowModal();改寫完整的是這樣procedure TForm1.Button1Click(Sender: TObject);
var
frm: TForm2;
begin
frm := TForm2.Create(Application);
frm.ShowModal;
end;