如form2是自动创建的话:Form2.Show or Form2.ShowModal.
解决方案 »
- Msxml2.XMLHTTP 捕获它的异常
- 关于CANVAS作为参数传递的问题
- 使用TADOQuery从SQL Server导出大量数据,效率太低,不知如何优化
- circular datalinks are not allowed
- interface中的uses语句和implemetation中的uses语句有何不同?
- 在线等候答案
- 动态申请控件方面的问题,
- 用过shell编程的朋友请进,关于占资源的一个问题。
- 求助!关于delphi中实现将oracle中的表导出为.dbf文件,再将文件导入数据库!急!!再线等!
- 怎么将用sql从表A+表B选出的数据导入另一个表C里
- 高人都休假了吗?第3次提问,如何在dbgrid的某列失去焦点是判断其有效性
- 為何執行緩存更新ApplyUpdates后﹐再刷新﹐DBGrid中會產生重復記錄顯示﹐有什么辦法可解決﹐給高分。
begin
frm.show;
end;
{sc-----------------------------------------------------------------------
+++++显示窗体函数:供内部调用。可使窗体只Create一次+++++
-----参数说明:
FormClass:窗体名
Caption: 窗体标题
Restore:显示为原来大小。
-----------------------------------------------------------------------sc}
function InternalFindShowForm(FormClass: TFormClass;
const Caption: string; Restore: Boolean): TForm;
var
I: Integer;
begin
Result := nil;
for I := 0 to Screen.FormCount - 1 do begin
if Screen.Forms[I] is FormClass then
if (Caption = '') or (Caption = Screen.Forms[I].Caption) then begin
Result := Screen.Forms[I];
Break;
end;
end;
if Result = nil then begin
Application.CreateForm(FormClass, Result);
if Caption <> '' then Result.Caption := Caption;
end;
with Result do begin
if Restore and (WindowState = wsMinimized) then WindowState := wsNormal;
Show;
end;
end;function ShowDialog(FormClass: TFormClass): Boolean;
var
Dlg: TForm;
begin
Application.CreateForm(FormClass, Dlg);
try
Result := Dlg.ShowModal in [mrOk, mrYes];
finally
Dlg.Free;
end;
end;