델파이7을 기준입니다.
우선 uses절에 ADODB를 추가합니다.
ADODB.pas 파일을 살펴보면
function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
란 함수가 보입니다.
이넘이 다이얼로그를 불러주는 놈이지요. 따라서 버튼 클릭 이벤트 등에서 다음과 같이
코딩해주면 됩니다.
procedure TForm1.Button1Click(Sender: TObject);
var
Connection: String;
begin
Connection := PromptDataSource(Handle,'');
if Connection <> '' then
ADOConnection1.ConnectionString := Connection;
end;
조규호 님이 쓰신 글 :
: DB 컴포넌트들에는 보통 ConnectionString이 프로퍼티로 들어가있고, ConnectionString 프로퍼티에서 [...] 버튼을 누르면 Connection String dialog box가 나타나서 Connection String을 만들 수 있는 환경을 제공합니다.
:
: 그런데...
:
: 이 다이얼로그를 런타임중에 실시간으로 띄울수 없는가 하는 것이 제 질문입니다. 델파이를 시작한지 얼마안되는 초보라, 컴포넌트 빌트인 다이얼로그를 어떻게 띄우는지 모르겠군요. ^-^ 답변 부탁드립니다.
|