Ações descritas

Delphi

26/07/2003

Alguem ai sabe como eu faço o seguinte:clico em um botao e numa parte aparece a descrição da ação, por exemplo, eu clico em conectar ao servidor, aparece: checando portas,
abrindo porta,
conectando,
conectado!


Obrigado


Sergio Luiz

Sergio Luiz

Curtidas 0

Respostas

Cdaraujo

Cdaraujo

26/07/2003

[b:03ca8a55f5]Caro amigo,

Veja um exemplo que fiz.

Atenciosamente,

Daniel Araújo[/b:03ca8a55f5]

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.


GOSTEI 0
Ivan Andre

Ivan Andre

26/07/2003

valeu amigo, vou testar...
falô

Ivan André
---------------------------------------







[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.



GOSTEI 0
POSTAR