第一节 TObject类1、TObject是什么？ 是Object Pascal语言体系结构的基本核心，也是各种VCL控件的起源。说TObject是DELPHI程序的原子，是因为TObject是DELPHI编译器内部支持的。所有的对象类都是从TObject派生的，即使你并未指定TObject为祖先类。TObject被定义在System单元，它是系统的一部分。在System.pas单元的

Screen是TScreen的一个全局对象，在Forms单元中声明如下：var Application: TApplication; Screen: TScreen; 同Application一样，均可以直接使用 procedure TForm1.Button1Click(Sender: TObject);var kl: HKL; I : Integ

  procedure TForm1.Button1Click(Sender: TObject);var R: TRect;begin case RadioGroup1.ItemIndex of 0: //绘制椭圆 参数同矩形 begin Button2Click(Sender); with Image1 do

 procedure TForm1.Button1Click(Sender: TObject);var R: TRect;begin case RadioGroup1.ItemIndex of 0: //绘制矩形要给出两个对角坐标值 begin Button2Click(Sender); with Image1 d

 //基本画图工具 --画笔procedure TForm1.Button1Click(Sender: TObject);begin// Form1.Refresh; Canvas.Pen.Color := clRed; Canvas.Pen.Width := 1; Canvas.Pen.Mode := TPenMode(RadioGroup2.ItemInde

 1、TCanvas//矩形 两种方式：1、对角线顶点2、Rect procedure Rectangle(X1, Y1, X2, Y2: Integer); overload; procedure Rectangle(const Rect: TRect); overload;//圆角矩形 X3，Y3决定圆角角度 procedure RoundRect(X

 什么是多态，字面意思就是“多种形态”，用对象来讲就是子类继承基类，而不同的子类又分别对基类进行功能的扩展。 多态在Object Pascal中是通过虚方法实现的（Virtual Method）,在Object Pascal中基类的虚方法是可以被派生类覆盖（Override）的

 继承是为了表现类与类之间“是一种”关系，是多态存在的基础，继承是面象对象必不可少的基础，只支持封装而不支持继承的语言只能称为“基于对象”（Object-Based）面非面向对象“Object-Oriented”; Object Pascal只支持单继承，也就是一个派生类只能有一个基类 但可以实现多个接口

 在一个单元中声明的多个类互为友元类type TMyClass = class GUID: string; Name: string; bSex: Boolean; Tel : string; end; TForm1 = class(TForm) Button1: TButton; Memo1: TMemo;

 //定义MyClass TMyClass = class GUID: string; Name: string; bSex: Boolean; Tel : string; end;//取值var obj: TMyClass;begin obj := TMyClass.Create; with Memo1.Lin

 TGraphicControl and TWinControlTCotnrol之下的组件分两条路各行其道。一条为图形组件，这类组件并非窗口，职责只在于显示图形、图像，其基类是TGraphicControl；另一条为窗口组件，这类组件本身是一个Windows窗口（有窗口句柄），其基类是TWinControl。TGraphicControl作为显示图形、图像的组件分支，从其开始就提供了一

第二节 TPersistent类TPersistent类来源TObject类，在Delphi中的定义如下:{$M+}  TPersistent = class(TObject)  private    procedure AssignError(Source: TPersistent);  protected    procedure AssignTo(Dest: TP