شباب هذا الكود لإظهار الفورم بطريقة جميلة
{
The AnimateWindow function enables you to produce
special effects when showing or hiding windows.
Mit der AnimateWindow Funktion kann man spezielle Effekte
erzeugen beim Zeigen, Unsichtbarmachen (hide) einer Form.
}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.BringToFront;
AnimateWindow(Form2.Handle,Trackbar1.Position, AW_BLEND);
Form2.Show;
{
The 3. parameter can be one or more of the following values:
Der 3. parameter kan folgende Werte annehmen:
AW_BLEND : Uses a fade effect
AW_SLIDE : Uses slide animation.
AW_ACTIVATE : Activates the window
AW_HIDE : Hides the window.
AW_CENTER : Makes the window appear to collapse inward
AW_HOR_POSITIVE : Animates the window from left to right.
AW_HOR_NEGATIVE : Animates the window from right to left
AW_VER_POSITIVE : Animates the window from top to bottom
AW_VER_NEGATIVE : Animates the window from bottom to top
}
end;المثال في المرفقات :lol: