Ich verwende in älteren
VCL Projekten die
WinAPI Funktion AnimateWindow().
Für TForm z.B.
Delphi-Quellcode:
Form2.BringToFront;
AnimateWindow(Form2.Handle, 250, AW_BLEND);
Form2.Show;
In einem alten Projekt für ein TPanel:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Panel1.Visible then
ClosePanel
else
OpenPanel;
end;
procedure TForm1.OpenPanel;
begin
AnimateWindow(Panel1.Handle, 250, AW_ACTIVATE or AW_VER_NEGATIVE);
Panel1.Visible := True;
end;
procedure TForm1.ClosePanel;
begin
AnimateWindow(Panel1.Handle, 250, AW_ACTIVATE or AW_VER_NEGATIVE);
Panel1.Visible := False;
end;
Ist nur Pseudocode aus einer einfach erstellten
VCL Anwendung mit 2 TForms. Vielleicht hilf es dir.