标签：parent 使用 play class 函数 nec string connect 连接
有时候需要客户端进行服务器连接配置，自己写配置窗体，总不如直接使用系统提供的使用方便快捷
例子一：
//此例子有个坏处不管用户点了确定还是取消，均返回值
procedure TForm1.Button1Click(Sender: TObject); var connStr:string; begin connStr := PromptDataSource(Application.Handle,ADOConnection1.ConnectionString);//function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
Memo1.Lines.Add(connStr); end;
例子二：
uses Data.Win.ADOConEd; //必须引用这个单元
//如果没有修改点击OK按钮后没有返回值，只有修改后才会产生返回值 procedure TForm1.Button1Click(Sender: TObject); var connStr: string; begin if EditConnectionString(ADOConnection1) then begin connStr := ADOConnection1.ConnectionString; Memo1.Lines.Add(connStr); end; end;
标签：parent 使用 play class 函数 nec string connect 连接
原文地址：http://www.cnblogs.com/win32pro/p/7270276.html
