我是这样打开的
procedure Tform_main.sb_plateClick(Sender: TObject);
begin
Form_plate:=TForm_plate.Create(Application);
Form_plate.showmodal;
form_plate.Free;
end;然后是这样关闭的
procedure TForm_plate.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure Tform_main.sb_plateClick(Sender: TObject);
begin
Form_plate:=TForm_plate.Create(Application);
Form_plate.showmodal;
form_plate.Free;
end;然后是这样关闭的
procedure TForm_plate.BitBtn1Click(Sender: TObject);
begin
close;
end;
解决方案 »
- Dll C函数转Delphi,变参总是返回nil, 请教!
- 在cxGrid中显示数据时,列太多了,能不能固定前面一列?,怎样操作
- 用QQ发含有“1259”字符的信息,对方就是收不到,没任何提示?大家试试,是不是都这样
- 三层服务器 remote Data Module 生成的 *_TLB.pas 文件问题 请高手指点下
- 如何使用indy组件发邮件,在线等候,谢谢!
- 对于拨号问题
- char问题??
- 被封杀一周呵呵!回来居然有星星啦!不可思忆的!
- 高手来看:关于数据库算法
- 为什么会这样?
- could not convert variant of type (null) into type(string)
- 关于xml报表的问题。
不知是不是这个原因
也可以这样写:
Application.CreateForm(TForm1, Form1);
Form1.showmodal;
Form1.free;