با سلام.تابع فرم شیشه ای را برایت هدیه می نمایم در فرم یک button قرار دهید و با سلیقه خود در رویداد onshow فرم و یا.......
implementation
{$R *.dfm}
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
TransForm(form1.Handle ,150);
end;