چند سورس برنامه به زبان دلفی
http://www.box.net/shared/k03l9y7m8i
تست چهار گزینه ای
http://www.box.net/shared/3nwy16z8ck
نرم افزار MDF مخصوص مخابرات
http://www.box.net/shared/zrj6lbjsww
پسورد فایل ها : www.harchi.net
دلفی به ما امکان می دهد آرایههایی از هر نوع متغییری را ایجاد کنیم.
var
array[indexType1, ...,
indexTypen] of baseType;
برای دیدن
ادامه،روی ادامه ی مطلب کلیک کنید
فرمتون قشنگ می شه پس ازش استفاده کنید.....
Function TransForm(wnd:Longint;
Perc:Integer):Longint;
var
j:Longint;
begin
j := GetWindowLong(wnd, GWL_EXSTYLE);
j := j Or WS_EX_LAYERED;
SetWindowLong( wnd, GWL_EXSTYLE, j);
SetLayeredWindowAttributes (wnd, 0, Perc, LWA_ALPHA);
End;
و برای فعال شدن آن:
TransForm(form1.Handle ,150);
برای انجام این کار در رویداد OnCreate فرمی که می خواهید با افکت باز بشه خط زیر را اضافه کنید :
AnimateWindow(Form1.Handle,
300, AW_Center);
البته بهتره بدونید که فقط همین یه دونه افکت نیست ، پارامتر سوم پردازه بالا نوع افکت رو مشخص می کنه ، اگه رو اون کلید Ctrl+Space رو بزنید از لیستی که باز می شه می تونید افکت های دیگه رو انتخاب کنید . همچنین پارامتر دوم زمان طول کشیدن افکت رو بر حسب میلی ثانیه مشخص می کنه . پارامتر اول هم هندل (شماره منحصر به فردی که ویندوز به هر پنجره اختصاص می ده) فرمیه که می خواهید با افکت نشون داده بشه
در دلفی عنصری وجود دارد که دیگر عناصر(مانن دکمه ها،لیست
ها و ...) که به شکل ویندوز 98 هستند را به اشکال اکس پی 32 بیتی در می آورد.فقط
کافی است شما این عنصر را بر روی فرم خود قرار دهید.همه چیز تمام است.

تبدیل می شود به

.....................................
برای دیدن بقیه،روی ادامه ی مطلب کلیک کنید
Function TransForm(wnd:Longint; Perc:Integer):Longint;
var
j:Longint;
begin
j := GetWindowLong(wnd, GWL_EXSTYLE);
j := j Or WS_EX_LAYERED;
SetWindowLong( wnd, GWL_EXSTYLE, j);
SetLayeredWindowAttributes (wnd, 0, Perc, LWA_ALPHA);
End;
و برای فعال شدن آن:
TransForm(form1.Handle ,150);
هیچ می دونستید در دلفی می توان بدون داشتن هیچ کامپوننت یا خاصی فرم ها را با افکت های مختلف نشون داد؟
برای انجام این کار در رویداد OnCreate فرمی که می خواهید با افکت باز بشه خط زیر را اضافه کنید :
AnimateWindow(Form1.Handle, 300, AW_Center);
البته بهتره بدونید که فقط همین یه دونه افکت نیست ، پارامتر سوم پردازه بالا نوع افکت رو مشخص می کنه ، اگه رو اون کلید Ctrl+Space رو بزنید از لیستی که باز می شه می تونید افکت های دیگه رو انتخاب کنید . همچنین پارامتر دوم زمان طول کشیدن افکت رو بر حسب میلی ثانیه مشخص می کنه . پارامتر اول هم هندل (شماره منحصر به فردی که ویندوز به هر پنجره اختصاص می ده) فرمیه که می خواهید با افکت نشون داده بشه
منبع: آموزش دلفی