2014年11月28日
TForm的显示过程
新建一个空窗体项目，然后运行，此时首先运行：procedure TApplication.Run;begin FRunning := True; try AddExitProc(DoneApplication); if FMainForm nil then begin ... Read More
posted @ 2014-11-28 19:15 findumars Views(994) Comments(0) Diggs(0)
VCL设计方法概论（自己总结了9条），以及10个值得研究的控件 good
VCL设计方法概论 1. 把Delphi对象改造成一个Windows窗口，主要是要设置Handle和回调函数。在创建一个Windows窗口后，将其句柄赋值给Delphi对象的属性，这个并不难，相当于从此以后这个Delphi控件（或称内存对象）代表了这个Windows窗口，准确的说是包含了这个Wind Read More
posted @ 2014-11-28 17:29 findumars Views(752) Comments(0) Diggs(2)
点击Button后，执行MouseDown的过程（使用Call Stack观察很清楚）
Form1上放两个按钮Button1和Button2，默认输入焦点是Button1，现在点击Button2，产生WM_LBUTTONDOWN消息procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton; Shift... Read More
posted @ 2014-11-28 05:43 findumars Views(1018) Comments(0) Diggs(0)