Delphi "Animiertes" Meldungsfenster erstellen (Countdown)

kein pc wissen

Cadet 4th Year
Dabei seit
Feb. 2008
Beiträge
90
Hallo,

Wir alle kennen ja diese Mitteilungsfenster von Anwendungen, wo z.B. steht:

"... wird erledigt in n Sekunden", wobei n eine Abwärts-laufende Zahl ist. Ich möchte nun so etwas in Delphi auch machen.

Die einfachste Möglichkeit, die es gibt wäre ja diese:

Code:
unit Unit1;

interface

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

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

var
  Form1: TForm1;
  n:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  n:=n-1;
  label1.Caption:='... wird beendet in '+inttostr(n)+' Sekunden';
  if n<1 then
    begin
      timer1.Enabled:=false;
      windows.Beep(2000,1000);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  n:=100;
  caption:='Test-Meldungsfenster';
  label1.Caption:='... wird beendet in '+inttostr(n)+' Sekunden';
end;

end.
Bei der möglichkeit, würde hier bei 0 ein Piepton von 2000Hz, 1 Sekunde lang ertönen(nur als Beispiel).

Meine Frage: Gibt es ein Befehl. der genau so etwas macht, aber mit den typischen Merkmalen, wie den Symbolen(wie beim messagedlg) und ohne Delphi-Zeichen oben in der Zeile(die 3 Knöpfe sollten noch vorhanden sein)?
 
Top