Erscheinen

[Schwedenbitter]

Neuer Rechner, neues Glück! Ich hoffe, es klappt diesmal mit dem Dateianhang.

[DeddyH]

Ich habe gerade die "alte" Version kompiliert und da ist mir aufgefallen, dass man nicht das Fenster an sich, sondern die enthaltenen Controls neu zeichnen muss, dann klappt es auch.

Delphi-Quellcode:

Procedure TForm1.TimerAnimateTimer(Sender: TObject);
Begin
  TimerAnimate.Enabled:=False;
  if AnimateWindow(self.Handle, 1000, AW_BLEND Or AW_ACTIVATE) then
    begin
      BtnAnimate.Repaint;
      BtnOut.Repaint;
    end;
End;

[Schwedenbitter]

Danke für den Tipp. Es funktioniert super, was die Anzeige nach dem vollständigen Wiederherstellen anbelangt.
Unter Delphi 6 sieht man aber schon während des Einblendens die Controls auf dem Form. Zudem habe ich in meinem Programm eine ganze Menge davon und das wird mir dann zu aufwendig. Wie man das mit einer Schleife löst, ist mir nicht so richtig geläufig. Aber das geht wohl mit ComponentCount oder so? Müsste ich mir ansehen.

Ich habe aber eine für mich vernünftige Lösung gefunden. Ich mache es über einen Thread. Ich probiere es mal auf anderen, leistungsärmeren Rechnern aus. Bin gespannt, ob es auch da flüssig fadet. Leider habe ich bislang noch keine Möglichkeit gefunden, auf die Zeit Einfluss zu nehmen, wie das eben bei AnimateWindow() möglich ist .

[EDIT]Schaden: auf langsamen Rechnern (PIII 800 MHz) läuft es nicht. Das Ausblenden per Thread braucht mehr als 2 Sekunden. Man könnte jetzt zwar Alpha um mehr als 1 erhöhen oder verringern. Dann ist es aber auf schnellen Rechnern (bei mir AMD 64 3700+) zu schnell. Auf AMD XP 1800+ sogar noch zu langsam auf Intel Atom N600 (?) grenzwertig.
Am besten ist die Methode nur über Timer, die aber im Code später sehr unübersichtlich wird und mich daher zurück zur Frage bringt, wie kann ich TTimer.OnTimer zur Laufzeit eine Procedure zuweisen?[/EDIT]

Gruß, Alex

[Schwedenbitter]

Irgendwie stehe ich im Moment auf dem Schlauch! Kann mir bitte mal jemand sagen, warum mein Fenster beim Aufruf von Fadeout() bei diesem Code nicht verschwindet, sich zwar verschieben aber nicht mehr beenden lässt:

Delphi-Quellcode:

Unit Fading2;

Interface

Uses Forms;

Procedure FadeOut(FadeForm: TForm; Const dwTime: Integer = 200;
  Const Close: Boolean = True);

Implementation

Uses Windows;

Const
  Interval  = 5;

Procedure FadeOut(FadeForm: TForm; Const dwTime: Integer = 200;
  Const Close: Boolean = True);
Var
  Done      : Boolean;
  Alpha     : Double;
  Step      : Double;

  Procedure TimerProc(Wnd:HWnd; Msg, TimerID, dwTime: DWORD); Stdcall;
  Begin
    If Done Then Exit;
    Alpha:=Alpha - Step;
    If (Alpha < 0) Then Done:=True
    Else                FadeForm.AlphaBlendValue:=Round(Alpha);
  End;

Var
  oldAlpha  : Integer;
  hTimer    : Cardinal;
Begin
  Done:=    False;
  oldAlpha:=FadeForm.AlphaBlendValue;
  Alpha:=   oldAlpha;
  Step:=    Alpha / (dwTime / Interval);
  SetTimer(0, hTimer, Interval, @TimerProc);
  Repeat
    Application.ProcessMessages;
  Until Done;
  KillTimer(0, hTimer);
  If Close Then FadeForm.Close
  Else          FadeForm.Visible:=False;
  FadeForm.AlphaBlendValue:=oldAlpha;
End;

End.

Idee := Brain.Activate(self); bringt bei mir im Moment eine Exception erster Güte

Guß und Dank, Alex

[DeddyH]

Ich habe gerade mal etwas ausprobiert (dieses Timer-Gedöns stört mich irgendwie):

Delphi-Quellcode:

procedure TFormBla.btnWuppdiClick(Sender: TObject);
begin  
  if AnimateWindow(Handle,2000,AW_BLEND or AW_HIDE) then
    begin
      sleep(500);
      AnimateWindow(Handle,2000,AW_BLEND or AW_ACTIVATE);
    end;
end;

Während der Animation ist zwar auch der Button nicht zu sehen, dafür aber danach, und das ganz ohne Refresh.

[Schwedenbitter]

Hallo DeddyH,

der Code funktioniert bei mir nicht. Ich habe es mit Deinem Code wieder probiert. Abgesehen davon, dass die Controls beim Einblenden nicht sichtbar sind, sind sie es auch danach nicht.

Ich habe es aber nun mit TTimer hinbekommen und die Datei angehängt; für Leidensgenossen. Diesmal ohne exe nur mit Quellcode zum Selbercompilieren.

Gruß, Alex

[Bummi]

Delphi-Quellcode:

Procedure TForm1.BtnAnimateClick(Sender: TObject);
Begin
   self.AlphaBlend:=False;
   AnimateWindow(self.Handle, 1000, AW_BLEND Or AW_HIDE);
   AnimateWindow(self.Handle, 1000, AW_BLEND Or SW_SHOW);;
  invalidate;
End;