ddd Read More
posted @ 2015-08-21 20:22 findumars Views(336) Comments(0) Diggs(0)
TBitBtn就是一个例子: 留个爪,值得研究~ Read More
posted @ 2015-08-21 19:09 findumars Views(590) Comments(0) Diggs(0)
IsDelphiHandleFindVCLWindowfunction IsVCLControl(Handle: HWND): Boolean;function FindControl(Handle: HWND): TWinControl;function FindVCLWindow(const P... Read More
posted @ 2015-08-21 18:39 findumars Views(700) Comments(0) Diggs(0)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Clipbrd;type TForm1 = class(T... Read More
posted @ 2015-08-21 18:33 findumars Views(401) Comments(0) Diggs(0)
一、override 重载type TFigure = class procedure Draw; virtual;//(我的理解是)父类中可以使用父类的,子类中使用子类的。与“四”是有区别的。 end; TRectangle = class(TFigure) procedure... Read More
posted @ 2015-08-21 18:32 findumars Views(3815) Comments(0) Diggs(1)