procedure TForm1.Button3Click(Sender: TObject);begin if (csOpaque in ControlStyle) then ShowMessage('不透明') else ShowMessage('透明') // Form透明end; procedure TForm1.Button3Click(Sender: TObject);begin if (csOpaque in Panel1.ControlStyle) then ShowMessage