TPanel ein-/ausblenden

[Aenogym]

hi ihr,

mit folgendem code kann ich ein fenster ein- und ausblenden lassen (fade effekt):

Delphi-Quellcode:

form.BringToFront;
AnimateWindow(form.Handle, 250, AW_BLEND {or AW_HIDE});
form.Show;
form.refresh;

klappt ganz gut. nun hab ich das auch für ein TPanel veruscht - erfolglos

ich hab schon gesucht, aber nicht mal die schwizer haben einen tipp, wie ich ein control ein- und ausblenden kann.
es sollte für ein TPanel funktionieren, weil ich dessen captio-property nutze, und das panel top-aligned sein soll.

habt ihr einen tipp für mich?

danke schlnmal,
Aenogym

[Sprint]

Zitat von Aenogym:

ich hab schon gesucht, aber nicht mal die schwizer haben einen tipp, wie ich ein control ein- und ausblenden kann.

Hast aber nicht im Microsoft Platform SDK gesucht. Weil dort steht, warum's nicht geht.

Zitat:

The function will fail in the following situations:

• If the window uses the window region. Windows XP: This does not cause the function to fail.
• If the window is already visible and you are trying to show the window.
• If the window is already hidden and you are trying to hide the window.
• If there is no direction specified for the slide or roll animation.
• When trying to animate a child window with AW_BLEND.

Außerdem steht noch bei der Beschreibung von dwFlags:

Zitat:

AW_BLEND
Uses a fade effect. This flag can be used only if hwnd is a top-level window.

Und dein Panel wird wohl kein TopLevel Fenster sein.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Visible := False;
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

  AnimateWindow(Panel1.Handle, 500, AW_ACTIVATE or AW_HOR_POSITIVE);
  AnimateWindow(Panel1.Handle, 500, AW_HIDE or AW_HOR_NEGATIVE);

end;

[Aenogym]

Zitat von Sprint:

Hast aber nicht im Microsoft Platform SDK gesucht. Weil dort steht, warum's nicht geht.

stimmt allerdings

vielen, vielen dank für die hilfe,
Aenogym