ActiveDelphi

[brunokkk88]

Boa tarde pessoal, estou querendo colocar um limitador de tempo para login com progressbar no meu sistema, porém não estou conseguindo, tentei fazer usando for só que não deu certo alguém poderia me dar uma ideia de como fazer?


Aeee galera consegui resolver o questionamento acima de uma forma fácil, o que eu fiz foi o seguinte.
Criei uma variavel global "StatusLogin" no evento active do formulário essa variavél recebe o valor 'OFF'.
Statuslogin:='OFF';
depois no componente Timer coloquei a seguinte rotina:

If statuslogin = 'OFF' then
begin
ProgressBar1.Max:=10;
If ProgressBar1.Position < ProgressBar1.Max then
ProgressBar1.Position:=ProgressBar1.Position+1
else
close;
end
else

E no botão validar login, caso dados fornecidos estejam corretos a variavel "StatusLogin" recebe o valor 'ON'
statuslogin:='ON';

No meu caso funcional perfeitamente.

[CesarRocha]

For não vai funcionar, pois ira "congelar" a sua aplicação. Você pode achar por ai sugestões recomendando usar Application.ProcessMessage, contudo não recomendo tal abordagem.

Soluções possíveis:

+ Usar um TTimer para controlar o tempo, a cada segundo passado nele você incremente o TProgressBar;
+ Criar uma TThread para manipular a passagem do tempo;
+ Criar um novo componente que contenha tal função internamente.

~bye

[brunokkk88]

[emanoelts]

Olha fiz um exemplo bem simples de como usar o progressbar com um timer. Embora em meus aplicativos não coloco limite de tempo para login e sim limite de tentativas com login ou senha errados. Se o usuário digitar a senha ou login errados 'n' vezes fecho o aplicativo.

No exemplo você precisa de um Form, com um Timer, um Button e um ProgresBar:

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.ComCtrls;

type
TForm1 = class(TForm)
ProgressBar1: TProgressBar;
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
aux: Integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ProgressBar1.Max := 5;
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := aux;
if aux > 5 then
begin
ProgressBar1.Position := 0;
aux := 0;
Timer1.Enabled := false;
end
else
Inc(aux);
end;

end