Código: Seleccionar todo

'------------------------------------------------
'| - [Effect] SplashForm
'| - [Autor]  The Swash
'| - [Web]    http://www.Indetectables.net
'| - [Date]   22/03/2010
'------------------------------------------------
Public Function SplashForm(hForm As Form) As Long
Dim hTop    As Long
Dim hLeft   As Long
 
 hTop = hForm.Top
 hLeft = hForm.Left
 
 If hForm.WindowState = 0 And hForm.Visible = True Then
  For i = 1 To 60
   hForm.Top = hForm.Top + 120
   hForm.Left = hForm.Left + 120
   hForm.Top = hTop
   hForm.Left = hLeft
   DoEvents
  Next i
   SplashForm = 1
   Else
   SplashForm = 0: GoTo Quit
 End If
 
Quit:
End Function

Código: Seleccionar todo

Call SplashForm(Form1)

Código: Seleccionar todo

(*-----------------------------------------------*)
(*| - [Efecto] SplashForm                        *)
(*| - [Autor Original (VB)]  The Swash           *)
(*| - [Traducción a Delphi] .:WindHack:.         *)
(*| - [Fecha]   23/03/2010                       *)
(*-----------------------------------------------*)

procedure SplashForm(hForm:TForm);
var
  hTop,hLeft,I:Integer;
begin
  hTop := hForm.Top;
  hLeft := hForm.Left;

  if (hForm.WindowState = wsNormal) And (hForm.Visible = True) then
    For I := 1 to 60 do
      begin
        hForm.Top := hForm.Top + 10;
        hForm.Left := hForm.Left + 10;
        hForm.Top := hTop;
        hForm.Left := hLeft;
      end;
end;

Código: Seleccionar todo

SplashForm(Form1)