unit zqd;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses Unit2;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
try
Form2 := TForm2.Create(Nil);
Form2.Show;
except
Form2.Free;
end;end.
这是Unit1里的代码!
我想button1click弹出子窗体
哪错了啊?还是窗体的属性设置的哪不对?窗体和子窗体的属性该怎么设置啊?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses Unit2;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
try
Form2 := TForm2.Create(Nil);
Form2.Show;
except
Form2.Free;
end;end.
这是Unit1里的代码!
我想button1click弹出子窗体
哪错了啊?还是窗体的属性设置的哪不对?窗体和子窗体的属性该怎么设置啊?
解决方案 »
- Dll调用问题,分配内存出错
- 请教Google桌面搜索Delphi文件索引编制问题。
- 如何得到规定一个日期的前一天,后一天日期?
- 小小~生日快乐
- 我用DBGRID显示IBQuery查询所得的记录,返回记录数太多,导致Out Of Memory!如何解决?!
- 关闭已经打开的文件出错~在线等待解决办法~~
- 子母窗体的问题?
- 在MDI程序里如何把子窗体的标题栏怎么设成无的呀?(急!SOS)
- 请教在Delphi中动态创建窗体的问题!(50分!)
- 怎样设计报表的纵横方向,QuickRep1.Page.Orientation:=?
- 关于TChart放大和还原的问题!
- 用Indy的Idftpserver写的一个服务器
Form2 := TForm2.Create(Nil);
Form2.Show;
except
Form2.Free;
end;
...
except
...
end;//你是不是没有END啊?