Speichern: Signal / Anzeige / Alarm wie bei Word

[Reinhardtinho]

Hi zusammen,

in meinem Programm gibt es die Möglichkeit etwas in eine Datei zu speichern.

Um dem Benutzer anzuzeigen, dass auch gespeichert wurde, möchte ich das selbe Verhalten wie MS Word 2003 haben.

Wenn man ein neues Dokument erstellt und dann auf Datei speichern geht und einen Dateinamen festlegt und speichert, schließt der Dialog und man sieht nur kurze Zeit ein transparentes Rechteck, dass erst so groß ist wie das Word-Fenster und dann immer kleiner wird (wie eine Art Zoom) und schließlich in der Mitte der unteren Zeile verschwindet.

Dies geschieht alles sehr schnell, aber der Benutzer merkt, dass gespeichert wurde.

Kann mit bitte jemand helfen und mir Tipps geben, wie ich so ein Verhalten einbauen kann?


Danke und MFG
Lorenz

[Luckie]

Erzeuge ein neues Fenster (Formular) und beim Schliessen annimierst du es mit AnimateWindow entsprechend.

Form1:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.ShowModal;
end;

Form2 für den Effekt:

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AnimateWindow(Handle, 400, AW_HIDE or AW_BLEND);
end;

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

[Reinhardtinho]

Dankesehr!

Funktioniert prima und sieht auch noch klasse aus!


MFG
Lorenz