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

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ساعت 15:49 توسط علی دانشمند |