Capturar si conecta adoconnetion

[ecfisa]

Hola elrodrix.

Si entendí bién lo que buscas, podes consultar y/o modificar la propiedad Connected del TADOConnection, cuyo valor es True si está conectado y False si no.

Un ejemplo a las apuradas:

Código Delphi [-]
procedure TForm1.btnConectarClick(Sender: TObject);
begin
  with ADOConnection1 do
  begin
    if Connected then
    begin
      MessageBox(Handle,'Ya está conectado a la base de datos','',MB_OK);
      Exit
    end;
    try
     Connected := True;
     except
       raise Exception.Create('Error al conectar con la base de datos');
     end;
  end;
end;

Saludos.