ایجاد فرم شیشه ای(فرمی که پشتش معلومه) با دلفی

[shirin71]

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



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