تبليغاتX
..: رقص دانش :..

blofa

حسین

blofa

http://blofa.blogfa.com

..: رقص دانش :..

..: رقص دانش :.. - ایجاد فرم شیشه ای یعنی فرمی که پشتش معلومه

..: رقص دانش :..

بیوگرافی هرکی بخوای و آموزش و ترفند موبایل نرم افزار سخت افزار اینترنت امنیت و دانلود برنامه و آهنگ

..: رقص دانش :..

ایجاد فرم شیشه ای یعنی فرمی که پشتش معلومه
فرمتون قشنگ می شه پس ازش استفاده کنید.....

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);


هر چقدر عدد بزگتر باشه حالت شیشه ای فرم کمتره و بالعکس....

 

+ نوشته شده در چهاردهم بهمن 1385ساعت توسط حسین |

آخر خنده