التماس دعا
دلفی به ما امکان می دهد آرایههایی از هر نوع متغییری را ایجاد کنیم.
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 رو بزنید از لیستی که باز می شه می تونید افکت های دیگه رو انتخاب کنید . همچنین پارامتر دوم زمان طول کشیدن افکت رو بر حسب میلی ثانیه مشخص می کنه . پارامتر اول هم هندل (شماره منحصر به فردی که ویندوز به هر پنجره اختصاص می ده) فرمیه که می خواهید با افکت نشون داده بشه
اعتراضهای گستردهی ایرانیان سراسر جهان به حذف نام ایران از فهرست کشورها در صفحات ثبت نام سایت یاهو میل برای ایجاد حساب کاربری، سرانجام پس از ۱۰ ماه به نتیجه رسید و موفقیتی بزرگ را برای فعالان اینترنت فارسی رقم زد.
ادامه مطلب
کلمه روبات از یک واژه زبان چک به نام «Roboa» مشتق شده و به معنی کارگران اجباری است و همین معنی، تا حدودی وظایف و نحوه عملکرد روباتها را در دنیای واقعی نشان میدهد. اکثر روباتها در دنیای واقعی به منظور انجام دادن کارهای سخت یا خطرناک یا نیازمند دقت زیاد مورد استفاده قرار می گیرند. هدف از طراحی آنها انجام مأموریتهایی است که بشر یا قادر به انجام آنها نیست یا عامل خستگی و پایین آمدن دقت بشر در انجام کارهای یکنواخت، تأثیر زیادی در عملکرد او در اجرای آن کارها دارد ...
ادامه مطلب
به کلوب آموزش خوش آمدید
این وبلاگ جهت جلب رضایت شما تنظیم شده و توجه شما به آن موجبات شادمانی ما را فراهم می آمورد .
