فرم شیشه ای

[admin]

کد زیر را همانطور که مشاهده می کنید در تابع* قرار می دهیم و FormCreate*فرم مان شیشه ای خواهد شد ...

ضمنا* TLogin نام فرم است و اگر فرم شما نام دیگری دارد ، فقط کد داخل رو جایگزین کنید ...
کد:



procedure TLogin.FormCreate(Sender: TObject);
var
j:integer;
begin

j:= GetWindowLong(login.Handle,GWL_EXSTYLE);
j:=j or WS_EX_LAYERED;
SetWindowLong(login.Handle,GWL_EXSTYLE,j);
SetLayeredWindowAttributes(login.Handle,0,220,LWA_ ALPHA);
end;