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.