//声明:SetWindowPos(hWnd: HWND; {窗口句柄}hWndInsertAfter: HWND; {窗口的 Z 顺序}X, Y: Integer; {位置}cx, cy: Inte ...

1. 子类化 理论：子类化是这样一种技术，它允许一个应用程序截获发往另一个窗口的消息。一个应用程序通过截获属于另一个窗口的消息，从而实现增加、监视或者修改那个窗口的缺省行为。子类化是用来改变或者扩 ...

procedure TForm1.Button3Click(Sender: TObject);begin if (csOpaque in ControlStyle) then ShowMessage( ...

The component below works perfectly, except for the following problem: 1) Saves the component below ...

超类化源码： 8种Windows基础控件： 17种Windows复杂控件： 本着任何技术都要烂熟于心的精神，把8种基础控件的代码贴上来，混个脸熟，以后再 ...

首先，在TForm的私有域，也就是private下设置两个变量ProgressBar、ProgressBarRect，其中ProgressBar为 TProgressBar类型，ProgressBar ...