Erscheinen

[Schwedenbitter]

Zitat von DeddyH:

Versuch doch nach Ende der Animation mal ein Refresh.

Danke für die Antwort. Leider klappt das auch nicht. Ich habe Refresh/Repaint/Update probiert; leider alles ohne Erfolg.

Ich habe hier noch ein altes Delphi 6. Wenn ich den Code damit compiliere, dann klappt es. Allerdings verstehe ich das insoweit nicht, als sowohl Turbodelphi als auch Delphi 6 für AnimateWindow die API-Funktionen benutzen und laut Quellcode beide dieselbe Routinen mit denselben Parametern benutzen

Gruß, Alex

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