没有内容,不代表没有边框.比如设计期一个空的TImage仍是有边框的. if (csOpaque in image1.ControlStyle) then ShowMessage('不透明')else ShowMessage('透明') // image1没有内容的时候,就是透明:有内容的时候,就是不透明 再比如: procedure TWinControl.PaintControls(DC: HDC; First: TControl); var I, Count, SaveIndex: Int
先看它们的函数内容: procedure TControl.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); begin // 虚函数,TWinControl有覆盖函数 if CheckNewSize(AWidth, AHeight) and // TControl的类函数,重新计算长宽 ((ALeft <> FLeft) or (ATop <> FTop) or (AWidth <> FWidth) or (AHeig