Erscheinen

[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;

[Schwedenbitter]

Hallo,

wie gesagt: AnimateWindow() klappt bei meinem TurboDelphi nicht. Aber ich habe 2 Lösungen gefunden. Eine als Object, dass man einfach auf die Form zieht und dann konfigurieren kann. Und eine Lösung als Procedure() mit "Timer-Gedöns". Letzteres könnte man wohl auch durch Sleep() ersetzen. Dazu habe ich aber nun keine Lust mehr

Viel Spaß beim Benutzen.

Gruß, Alex

[Schwedenbitter]

Hallo,

falls es nicht schon bemerkt wurde. Es gibt noch ein paar kleinere Fehler in der Komponente. Bis auf einen habe ich diese ausgemerzt. Es bleibt aber ein Problem bestehen:

Ich habe einiges aus einer Komponente übernommen, die ursprünglich für Delphi 6 entwickelt wurde. Da ich TurboDelphi benutze, musste ich eine ganze Menge abändern. Am meisten Probleme bereitet mir das Ereignis OnActivate() der MainForm. Dieses wird - wie bei den anderen Forms übrigens auch - bereits beim Anlegen der Forms im Speicher zum Programmstart ausgelöst. Das war bei Delphi 6 noch nicht der Fall und bedurfte damit auch keiner besonderen Behandlung. Das Problem habe ich behoben, indem ich ein Boolean FCanFade definiert habe, dass bei OnCreate() auf False und bei OnShow() auf True gesetzt wird.

Es bleibt aber ein Problem, dass OnActivate() ab (oder nur bei?) TurboDelphi auch dann ausgelöst wird, wenn das MainForm (bei den anderen Forms besteht das Problem eigenartiger Weise nicht) den Focus von einem anderen modal angezeigten Form zurück erhält.

Delphi-Quellcode:

Procedure TTest.ButtonClick(Sender: TObject;
Begin
  SubForm.ShowModal;
  // <- hier kommt jetzt OnActivate() von TTest,
  // wenn TTest das MainForm ist.
End;

...

Procedure TSubForm.ButtonClick(Sender: TObecjt);
Begin
  SubsubForm.ShowModal;
  // <- hier wird KEIN Ereignis ausgelöst  
End;

Wie bekomme ich das Activate in diesem Fall weg? Es geht nicht um OnActivat()! Das muss ich entweder nicht zuweisen oder kann das Problem selbst regeln.

Ich habe bereits in der Unit Forms von Delphi 6 und TurboDelphi nachgesehen. Da FOnActivate ausnahmslos an denselben Stellen ausgelöst wird, vertehe ich noch nicht einmal, wo das Problem liegt. Man eh! Ich bin so kurz vor dem Ziel

Kann mir da bitte jemand helfen?

Neueste Version anbei. Bei der Gelegenheit: Wie machen es die anderen, dass Sie immer gleich auf der ersten Seite die aktuellste Version ihres Codes einstellen? Dann könnte ich nämlich auch den alten raus- und den neuen reinstellen.

[Sir Rufo]

Schau doch einfach mal in welcher Rubrik die ihren Thread gestartet haben

Unter D2010 habe ich ein anderes Verhalten, als du beschrieben hast

Delphi-Quellcode:

{ Form1 ist MainForm }
Form2.Show;

Hier wird jetzt für Form2 OnActivate ausgeführt. Beim Wechsel zwischen den Forms wird für das jeweilige Form OnActivate ausgeführt.

Delphi-Quellcode:

{ Form1 ist MainForm }
Form2.ShowModal;

Hier wird nur für Form2 OnActivate ausgeführt und dann ist Ruhe (auch beim Schließen von Form2)

Diese Vorgehensweise ist für mich auch logisch, denn beim Form2.ShowModal wird der Kontext von Form1 ja nicht verlassen. Bei Form2.Show können aber beide Fenster aktiv sein und bei jedem Wechsel wird eben der Event ausgelöst.

Auch das Auslösen von OnActivate bei TForm2.Create( nil ) kann ich hier auch nicht nachvollziehen. Da kommt nur das Event OnCreate und mehr würde ich auch nicht erwarten

[Sir Rufo]

Zitat von Schwedenbitter;:

Neueste Version anbei. Bei der Gelegenheit: Wie machen es die anderen, dass Sie immer gleich auf der ersten Seite die aktuellste Version ihres Codes einstellen? Dann könnte ich nämlich auch den alten raus- und den neuen reinstellen.

Die erstellen ihren Thread in der Rubrik Software-Projekte der Mitglieder

Da geht das

Darum der Hinweis, schau nach der Rubrik wo dir das aufgefallen ist