TLoginDialogを流用する

ダイアログでよく使うもののひとつにログインダイアログがある。しかしDelphiのダイアログコンポーネントにはログイン用のダイアログが無い。そこでデータベース用ユニット内のTLoginDialogを流用してみます。ただし使ってみると意外と不便に感じるかもしれません。
以下の例はログインダイアログを表示し、[OK]を押された場合になんらかの処理をします。
※usesにDBLogDlgを追加する必要があります。

■ TLoginDialog の使用例 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    dlgLogin  :  TLoginDialog;
  begin
    dlgLogin          :=     TLoginDialog.Create(Application);　　
    dlgLogin.Caption  :=     'ログイン画面';
    dlgLogin.DatabaseName.Caption   :=   '';
    dlgLogin.ShowModal;
    if    dlgLogin.ModalResult    =    mrOk   then
    begin
      //OKの場合の処理
      //dlgLogin.UserName.Text にユーザー名
      //dlgLogin.PassWord.Text にパスワード
    end;
  end;