TControl.WMLButtonUp的inherited的作用——是为了给子类控件新的处理消息的机会

【TControl.WMLButtonUp的inherited的作用——是为了给子类控件新的处理消息的机会】的更多相关文章

TControl.WMLButtonUp的inherited的作用——是为了给子类控件新的处理消息的机会

意外注意到这个小细节: procedure TControl.WMLButtonUp(var Message: TWMLButtonUp); begin inherited; // 注意,如果是直接点击Form1,会执行TCustomForm.DefaultHandler(var Message);相当于给子类控件提供了新的处理消息的机会 if csCaptureMouse in ControlStyle then MouseCapture := False; if csClicked in C…

AllocateHWnd的作用，以及它在控件里的使用

有TTimer,TDragObject,TClipboard用到了这个函数,具体分析,待续...…

对TControl和TWinControl相同与不同之处的深刻理解（每一个WinControl就相当于扮演了整个Windows的窗口管理角色，主要是窗口显示和窗口大小）——TWinControl就两个作用（管理子控件的功能和调用句柄API的功能）

TControl是图形控件,它本身没有句柄,所以不能直接使用WINAPI显示,调整位置,发消息等等,只能想办法间接取得想要的效果,但是可以直接使用一些不需要句柄的API,比如InvalidateRect.TWinControl是含有Windows句柄的窗口,它有句柄,因此所有使用句柄的WINAPI都可以直接操作它从而取得各种效果,使得Windows窗口能够被驱动从而正常的工作.所以它顺带把它的图形子控件管理起来,让它们在自己所在的一份三分地里正常的工作(我的理解:在Delphi的世界里,此时一个…

TGraphicControl（自绘就2步，直接自绘自己，不需要调用VCL框架提供的函数重绘所有子控件，也不需要自己来提供PaintWindow函数让管理框架来调用）与TControl关键属性方法速记（Repaint要求父控件执行详细代码来重绘自己，还是直接要求Invalidate无效后Update刷新父控件，就看透明不透明这个属性，因为计算显示的区域有所不同）

TGraphicControl = class(TControl) private FCanvas: TCanvas; procedure WMPaint(var Message: TWMPaint); message WM_PAINT; protected procedure Paint; virtual; property Canvas: TCanvas read FCanvas; // 到这步才有 public constructor Create(AOwner: TComponent);…

一句话改变TWinControl控件的left坐标的前世今生（入口函数是SetBounds，然后调用SetWindowPos起作用，并发消息更新Delphi的left属性值）

Delphi的重要属性,主要是Enable, Visible, Color, left等等.这里分析left,因为TWinControl里有些覆盖函数的原因,虽然起点都是TControl.SetLeft()函数,但是图形控件和Win控件走的是不一样的路线.这里是测试TWinControl的left代码: procedure TForm1.Button1Click(Sender: TObject); begin panel1.Left:=panel1.Left-; end; 由于left是TCo…

ParentWindow属性及其一系列函数的作用——适合于那些不需要父控件管理内存释放的子控件

TWinControl = class(TControl) property ParentWindow: HWnd read FParentWindow write SetParentWindow; // 注意它的参数是windoows句柄,而不是Win控件,适合于那些不需要父控件管理内存释放的子控件 // 哲学,这个函数极少被用到(它是Delphi的写属性),只有菜单,ActiveX,THintWindow,TOpenPictureDialog,TOleForm和TShadowWindow用到…

TControl.GetDeviceContext会给图形控件建立新的坐标原点和建立新的剪裁区域

这是取得DC句柄的其中一种方法(会重定义原点和建立新的剪裁区): function TControl.GetDeviceContext(var WindowHandle: HWnd): HDC; begin if Parent = nil then raise EInvalidOperation.CreateFmt(SParentRequired, [Name]); Result := Parent.GetDeviceContext(WindowHandle); SetViewportOrgEx…