Erscheinen

[DeddyH]

Tja, merkwürdig. Ich bin nur auf das Refresh gekommen, da die Controls nach einem Verschieben des Fensters außerhalb des sichtbaren Bildschirmbereiches und wieder zurück dann sichtbar waren.

[Schwedenbitter]

Zitat von DeddyH:

... die Controls (waren) nach einem Verschieben des Fensters außerhalb des sichtbaren Bildschirmbereiches und wieder zurück dann sichtbar ...

Das hatte ich auch schon festgestellt, bin aber nicht auf Refresh & Co. gekommen.

Danke für das Probieren! Hast Du die exe probiert oder auch den Quelltext mal compiliert? Wie gesagt: mich deprimiert, dass es mit Delphi 6 anstandslos klappt. Ich wollte aber gern in ein bestehendes, großes Projekt ein- und ausblendende Fenster einbauen. In diesem werden viele Funktionen verwendet, die es anno Delphi 6 nicht gab. Ich kann das daher nicht einfach mit Version 6 compilieren

Gruß, Alex

[DeddyH]

Ich hatte nur das Kompilat laufen lassen. Im Moment bin ich unter Linux on, kann aber morgen gern einmal das Projekt kompilieren und dann noch einmal schauen (Delphi 2007).

[Schwedenbitter]

Guten Morgen!

Hattest Du das Kompilat unter Linux/Wine laufen lassen? Bzgl. des Kompilierens kann ich warten.

Ich habe jetzt eine neue Version angehängt.
Hier irgendwo im Forum hatte ich den Tipp gefunden, es über einen Timer flüssiger zu machen. Das habe ich getan. Es ist aber nicht komfortabel und ich möchte es daher gern in ein Object/eine Komponente kapseln. Die Idee hatte ich schon gestern morgen. Allerdings bin ich daran gescheitert. Ich fand keine Lösung dazu, einem zur Laufzeit angelegten TTimer erfolgreich das Ereignis OnTimer zuzuweisen. Und bei SetTimer/KillTimer weiß ich nicht, ob/wie ich innerhalb eines Aufrufs den Timer platt machen kann. Bei einem TTimer genügt dazu ja, wenn ich im Ereignis OnTimer Timer.Enabled:=False; setze...

Vielleicht kann mir dazu jemand/Du noch einen Tipp geben.

Gruß, Alex

[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