Fórum Ações descritas #171648

[b:5b1db3d237]Caro amigo, Veja um exemplo que fiz. Atenciosamente, Daniel Araújo[/b:5b1db3d237] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, DB, DBTables; type TForm1 = class(TForm) Button1: TButton; Timer1: TTimer; Database1: TDatabase; Label1: TLabel; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled := False; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if Database1.Connected then begin Label1.Caption := ´Conectado!´; Timer1.Enabled := False; end; end; procedure TForm1.Button1Click(Sender: TObject); begin {Estou usando o componente TDatabase, só para mostrar o exemplo de conexão. Lógico que se fosse para o TDatabase1 você teria os eventos de conexão e desconexão que são disparados.} Label1.Caption := ´Conectando...´; Timer1.Enabled := True; Database1.Connected := True; end; end.