procedure TForm1.FormCreate(Sender: TObject);beginBorderStyle := bsNone;Brush.Style := bsClear;end;//保证你只看的到控件！！！
如果半透明的话可以显示控件，如果全透明 控件显示不出来。
