Animate Window wirkungslos??

[Ben-G]

Hi! Ist wohl eine Anfängerfrage, habe aber keine Erfahrung mit AnimateWindow.
Habe gerade versucht es zu verwenden und hab erstmal den Code aus dem SwissDelphiCenter übernommen,
allerdings passiert bei mir rein gar nichts. Statt der erwarteten Animation, poppt das Fenster einfach normal auf, was habe ich falsch gemacht?

Code:

Form2.BringToFront;
AnimateWindow(Form2.Handle, 3000, AW_BLEND);
Form2.Show;

[Ben-G]

Hat denn keiner eine Ahnung wie das DIng funktioniert? :?

[shmia]

Such doch einfach mal in der MSDN: AnimateWindow
Es gibt einige Dinge, die verhindern, das AnimateWindow arbeiten kann.
Vorallem solltest du den Returncode auslesen und mit GetLastError nachfragen ,was schiefgegangen ist.
z.B. so:

Delphi-Quellcode:

if not AnimateWindow(Form2.Handle, 3000, AW_BLEND) then
   RaiseLastWin32Error; // GetLastError abfragen und Exception werfen

[Helmi]

Hallo,

probiers doch mal so:

Delphi-Quellcode:

AnimateWindow(Form2.Handle, 3000, AW_BLEND); 
Form2.BringToFront; 
Form2.Show;

[Ben-G]

nö, geht leider nich, aber der Code Schnipsel war wie gesagt vom Delphicenter übernommen.

[Luckie]

Wo rufst du denn den Code auf? In FormCeate?

So geht es:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  AnimateWindow(Form1.Handle, 3000, AW_BLend);
end;

Im OnShow aufrufen.

[Ben-G]

Danke schonmal, also:
Wenn ich das Programm starte funktioniert die Blende beim ersten mal, danach nicht mehr, wieso?

[Cyberbob]

ICh habs so gemacht wie Luckie es beschrieben hat.
AnimateWindow(Form1.Handle, 3000, AW_BLend) in das OnShow ereignis und das Form1.BringToFront und Form1.Show ganz weggelassen, funktioniert Prima!

[Ben-G]

Ja, bei mir funktionierts aber nur ein einziges mal :/

[Ben-G]

Abgesehen davon wird das Fenster nicht komplett aufgebaut, unten fehlt ein Abschnitt von schätzungsweise 150 pixeln.

[Ben-G]

Hilfe^^

[Cyberbob]

Hast du es mal mit einem neuen Programm versucht? Einfach mal AnimateWindow(Form1.Handle, 3000, AW_BLend) in ein neues Programm im OnShow Erreignis und schaun, was da passiert.

Probier mal mein Beispiel, das geht schneller...

[Mackhack]

Zitat:

Zitat von Ben-G

Abgesehen davon wird das Fenster nicht komplett aufgebaut, unten fehlt ein Abschnitt von schätzungsweise 150 pixeln.

Soweit ich weis werden die Controls auf dem Fenster durch die Animate-Function etwas durcheinandergebracht. Du muesstst dann eben mit Control.Count eben druchhuschen im OnPaint/OnRePaint.

//Edit: Sorry, hab meine Augen grad erst aufgemacht aus dem Bett. Natuerlich im OnShow folgendes aufrufen:

Delphi-Quellcode:

...
SetFocus;
for count := 0 to Pred(ControlCount) do
  if Controls[Count].Visible then
    Controls[Count].Repaint;

[Daniel G]

Und AnimateWindow verträgt sich auch schlecht mit einem eingebautem Manifest. Zumindest bei meiner nonVCL - App war das so....

[Ben-G]

Ja scheint tatsächlich an der komplexität der formulare zu liegen, bei nur einem gehts ohne Probleme...
Bekomm esbei mir aber einfach nich gebacken...