在Project->Options->Forms中选中Form,移到右边!
解决方案 »
- TPerlRegEx 一个工程正常,另一个出现DDC L4077 错误。怎么解决
- fastreport 横向打印的时候,预览正确,但是第一页每次都缺少右边一点?
- 如何判断一个网页或一个文件是否已在ie的缓存目录里了?
- 高分求教!(急,急,急)
- 如果知道目录存在并创建不存在的目录?如何把字符串中的'A'字符替换为'Y'?
- 如何使窗体中的控件,随着窗体的改变而改变?
- ListView的快捷菜单怎么在会在右键MouseDown时弹出呢?
- 求帮助,求指教
- word出错的问题,为什么说variant does not reference an automation object,怎么不能回答?
- 哪里能下载二笔输入法?听说这个输入法很不错!
- SpeedButton的DblClick为什么是无效的?它有什么作用?
- 我在添加ActiveX的MS Comm后看到单元文件加了进来,但是组件面板上却看不到该控件,这是怎么回事?
在Project->Options->Forms中选中Form,移到右边!
模式窗体
Frminputsell := TFrminputsell.Create(Application);
Frminputsell.ShowModal;
Frminputsell.Free;
1. 动态创建和模式调用
Form2 := TForm2.Create(Self);
Form2.ShowModal;2. Project ---> Options ----> Forms 从Main Forms下拉框中选择你的主窗体,把你想动态创建的窗体都选到Available Forms 列表框,但要小心一般不要数据模块窗体选过去
不过得先var一下
var
form2:Tform2;
Form2 := TForm2.Create(Application);
Form2.ShowModal;
with TForm2.Creat(Application) do
begin
ShowModal;
Update;
end;
2. Project ---> Options ----> Forms 从Main Forms下拉框中选择你的主窗体,把你想动态创建的窗体都选到Available Forms 列表框,但要小心一般不要数据模块窗体选过去
Form2 := TForm2.Create(Self);
Form2.ShowModal;
在mainform的oncreate事件加入下面代码:
form2:=Tform2.create(self);
form2.showmodal;
form2.free;
再
if not assigned(Form2) then
try
Form2:=TForm2.Create(Application)
Form2.ShowModal;
finally
Form2.Free;
end;