Delphi控件的透明与不透明(要挨个解释一下原因),对InvalidateControl的关键理解

时间:2021-04-04 21:43:17

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('不透明') // Panel不透明
else ShowMessage('透明')
end;

if (csOpaque in Button1.ControlStyle) then ShowMessage('不透明')
else ShowMessage('透明') // Button透明

if (csOpaque in label1.ControlStyle) then ShowMessage('不透明') // Label不透明
else ShowMessage('透明')

if (csOpaque in image1.ControlStyle) then ShowMessage('不透明')
else ShowMessage('透明') // image1没有内容的时候,就是透明;有内容的时候,就是不透明

if (csOpaque in bitbtn1.ControlStyle) then ShowMessage('不透明')
else ShowMessage('透明') // bitbtn1有没有内容都是透明

http://bbs.2ccc.com/topic.asp?topicid=461248

---------------------------------------------------------------

对InvalidateControl的关键理解:

1.它是TControl的非虚函数,虽然它可以被TWinControl调用,但是根据VCL的其它代码,充分证明它实际上只能被图形子控件所使用:

procedure TWinControl.RemoveControl(AControl: TControl);
begin
Perform(CM_CONTROLCHANGE, Integer(AControl), Integer(False)); // 通知父控件
if AControl is TWinControl then
with TWinControl(AControl) do
begin
RemoveFocus(True); // 类函数
DestroyHandle; // important5 销毁它和它所有的子控件
end
else
if HandleAllocated then
AControl.InvalidateControl(AControl.Visible, False); // important5 让图形控件消失使用这种手法
Remove(AControl); // 类函数
Perform(CM_CONTROLLISTCHANGE, Integer(AControl), Integer(False)); // 通知父控件
Realign;
end; procedure TControl.DoDock(NewDockSite: TWinControl; var ARect: TRect);
begin
{ Erase TControls before UpdateboundsRect modifies position }
if not (Self is TWinControl) then InvalidateControl(Visible, False);
if Parent <> NewDockSite then
UpdateBoundsRect(ARect) // 类函数
else
BoundsRect := ARect; // 类属性
if (NewDockSite = nil) or (NewDockSite = NullDockSite) then Parent := nil;
end;

2. 它的实际内容:

procedure TControl.InvalidateControl(IsVisible, IsOpaque: Boolean);
var
bParentOpaque: Boolean;
bChlipped: Boolean;
Rect: TRect;
begin
if (IsVisible or (csDesigning in ComponentState) and not (csNoDesignVisible in ControlStyle))
and (Parent <> nil) and Parent.HandleAllocated then
begin
Rect := BoundsRect; // 类函数,简单计算(根据控件的长宽高)标签的坐标以及尺寸
bParentOpaque := csOpaque in Parent.ControlStyle; // Form默认透明(csOpaque不在风格里)。但是父控件不一定是Form,不要思维僵化在这里。
bChlipped:=BackgroundClipped;
// 实验说明后两个一般情况下都是False
// 第三个参数为False,则保持背景不变。Not作用符以后,有三者条件之一成立即可,就会保持背景不变。
// IsOpaque表示TControl自己不透明,完全遮住了父控件相应的区域,当然不用重绘背景
// bParentOpaque表示父控件自己就是不透明的,现有的背景已经足够(不需要更新父父控件的背景),那么无论TControl子控件怎么办自绘,都不需要更新背景。
// bChlipped 重合了
// 反过来说,自己透明(而且有可能是从不透明变成透明),这时当然要重绘背景。因为原来那部分背景根本就没有绘制。
// 父控件透明,也可以从不透明变成透明,这时也要背景重绘。fixme 如果父控件一直是透明的呢,那么每次绘制都要求父父控件背景重绘,因为父父控件的状态也有可能在改变。
// fixme 有空仔细研究背景消息 才能深刻理解
InvalidateRect(Parent.Handle, @Rect, not (IsOpaque or bParentOpaque or bChlipped)); // API
end;
end;

关键在于最后一个参数,三个条件之一成立,结果就是false,就不需要重绘背景了。这三个条件分别是:

1. 自身不透明(比如自身是Panel,或者自身是默认状态的标签),那么在自己的区域坐标内,自己可以随意重绘,而整个父控件的大背景不用变化。这个最容易理解。

2. 父控件不透明(比如父控件是Panel),那么父控件的背景不用看别的控件脸色,子控件在上面无论怎么自绘,也不需要改变父控件的背景。这个也能理解。

3. 兄弟控件的矩形区域与自己完全相同(也就是当前控件的区域坐标,与另一个z轴比它低、且不透明的兄弟控件的区域坐标完全一致,此时bChipped=true,此时当前控件的背景色要看这个兄弟控件的颜色即可,与父控件的颜色完全无关了)。这个也好理解,当前控件怎么自绘,都不影响和不需要父控件的背景。

但是,如果透明标签放在Form上,那么IsOpaque=false, bParentOpaque=false, bChipped=false,那么此时就会重绘整个句柄的区域,而不仅仅是指定的部分。

If the bErase parameter is TRUE for any part of the update region, the background is erased in the entire region, not just in the specified part.