استفاده از SPSs در برنامه دلفی

شاید برای شما هم پیش آمده که در پروژه ای نیاز به استفاده از ابزار قوی
SPSS در برنامه خود داشته باشید.
در این سایت می توانید کامپوننتهائی را پیدا کنید که امکان استفاده از تمام ویژگیهای این برنامه را به شما می دهد.
http://users.erols.com/eischeid/TSPSSDataFile/

البته یک را ساده برای تمام برنامه های از این نوع، برنامه نویسی به صورت OLE است.

Creating a roll up Delphi form (with animation)

با استفاده از این کد می توانید یک فرم با انیمیشن داشته باشید.
با کلیک راست بر روی عنوان فرم می توانید اجرا برنامه را ببینید.
می توانید از این سورس کد دلفی در برنامه خودتان استفاده نمائید. فقط کافیه کپی کرده و در برنامه اضافه نمائید.

type

   TForm1 = class(TForm)

   private

     fOldClientHeight: Integer;

     procedure WMNCRButtonDown(var Msg: TWMNCRButtonDown) ; message WM_NCRBUTTONDOWN;

   public

   end;



var

   Form1: TForm1;



implementation

{$R *.dfm}



procedure TForm1.WMNCRButtonDown(var Msg: TWMNCRButtonDown) ;

var

   h : integer;

begin

   if (Msg.HitTest = HTCAPTION) then

   begin

     if (ClientHeight = 0) then

     begin

       for h := 0 to fOldClientHeight do ClientHeight := h;

       Application.ProcessMessages;

     end

     else

     begin

       fOldClientHeight := ClientHeight;

       for h := fOldClientHeight downto 0 do ClientHeight := h;

       Application.ProcessMessages;

     end;

   end;

end;