uses shellapi; ... procedure TForm1.Button2Click(Sender: TObject); var vh: HWND; begin ShellExecute(Self.Handle,'open',Pchar(filename),'',nil,SW_SHOWNORMAL); vh := Windows.FindWindow(nil, '窗口标题串'); if vh<>0 then begin Windows.SetParent(vh, Self.Pane
一.提高查询效率先进行准备查询操作: CustomerQuery.Close; if not (CustomerQuery.Prepared) then -->查询是否已准备好 CustomerQuery.Prepare; -->查询准备 CustomerQuery.Open; -->执行查询 二.要在运行期访问参数,有三种方式可以选择:(适合BDE控件中的TQuery) (1)ParamByName: 按名称设置参数的值(2)Params: 按序号设置参数的值(3)Params.Par
[Delphi]Delphi开发的一些技巧 一.提高查询效率先进行准备查询操作: CustomerQuery.Close; if not (CustomerQuery.Prepared) then -->查询是否已准备好 CustomerQuery.Prepare; -->查询准备 CustomerQuery.Open; -->执行查询 二.要在运行期访问参数,有三种方式可以选择:(适合BDE控件中的TQuery) (1)ParamByName: 按名称设置参数的值(2)Params: