Verbliebene Zeit mit Progressbar anzeigen

[technik05]

Dieses kleine Programm wird durch eine Aktion geöffnet (FMS 32 Pro).
Der Timer1 soll nach einer gewissen Zeit Forum1 wieder schließen.
Möchte gerne die verbleibende Zeit mit ProgressBar darstellen!

ist dieses möglich ??? :wall:

Delphi-Quellcode:

 TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label3: TLabel;
    ProgressBar1: TProgressBar;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Close;
end;

end.

[edit=sakura] Titel für Suche korrigiert. Mfg, sakura[/edit]

[generic]

Nimm einen Zähler.
Dieser wird durch dem Timer in 0,5 Sekunden Takt runtergezählt.
Ist dieser 0 dann Form schließen.
Ansonsten schön den Progressbar updaten.

[technik05]

Nimm einen Zähler.

was für ein zähler ?????????

Dieser wird durch dem Timer in 0,5 Sekunden Takt runtergezählt.
Ist dieser 0 dann Form schließen.



bin leider kein profi, bin froh das ich delphi geöffnet bekomme :shock:

[Luckie]

Bitte gibt deinem Thread einen aussagekräftigen Namen. Ein Vorschlag wäre: "Verblieben Zeit mit Progressbar anzeigen"

[stahli]

ProgressBar.Min := 0;
ProgressBar.Max := 60;
ProgressBar.Position := ProgressBar.Max;
ProgressBar.Step := -1;

Timer jede Sekunde feuern lassen und dabei:
ProgressBar.StepIt;
if ProgressBar.Position < 1 then Close;


Dann kannst Du die Zeit (in Sekunden) durch ProgressBar.Max einstellen.


Stahli

[technik05]

erstmal danke an alle

wie würde es dann im quellcodes aussehen ??? habe wirklich keine ahnung :roll: :roll:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label3: TLabel;
    ProgressBar1: TProgressBar;     // [color=#ff003f]muß ich hier was rein schreiben ????????[/color]
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Close;
end;

end.

[DP-Maintenance]

Dieses Thema wurde von "Dax" von "Neuen Beitrag zur Code-Library hinzufügen" nach "VCL / WinForms / Controls" verschoben.
...

[stahli]

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
begin
  ProgressBar.Min := 0; 
  ProgressBar.Max := 60; 
  ProgressBar.Position := ProgressBar.Max; 
  ProgressBar.Step := -1; 
end;

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  ProgressBar.StepIt; 
  if ProgressBar.Position < 1 then 
    Close;  // Form1.Close wäre das gleiche, aber Form1 kann man auch weglassen
end;

Ist ungetestet, müsste aber so gehen.
Im Ereignis OnActivate weist Du der ProgressBar erst mal die Startwerte zu, wenn Dein Formular aktiviert wird (wenn es also geöffnet wird und den Fokus erhält).
Den Timer stellst Du einfach auf 1 Sekunde ein und änderst die ProgressBar.Position schrittweise jede Sekunde.
Das Formular werd geschlossen, wenn die ProgressBar "heruntergelaufen" ist.

[technik05]

DANKE !!!!

Super geht !!! danke danke :lol: :lol: