Delphi程序设计教程 吴文虎 等 05新.pptVIP

Delphi 程序设计教程 第5章 VCL详解 5.1 VCL的层次结构 5.2 组件栏介绍 5.3 组件开发技术 5.1 VCL的层次结构 5.1.1VCL的层次结构 5.1 VCL的层次结构 5.1.2 核心类介绍 TObject类:系统中所有类的基类 TComponent 类:所有组件的基类 TControl类:所有可视组件的基类 5.1 VCL的层次结构 5.1.3 VCL的通用属性、方法和事件 （1）VCL组件的属性 TmyTry = class Private Thevalue: String; Procedure SetThevalue( Avalue : String); Public Property value: string read Thevalue write SetThevalue; End; Procedure TmyTry.SetThevalue(Avalue: string); Begin If Thevalue Avalue then Thvalue:= Avalue; End; 5.1 VCL的层次结构 5.1.3 VCL的通用属性、方法和事件 （2）VCL组件的方法 Type Tmytry=class Male: Boolean; Gender: string; Procedure Judgethegender; end; Procedure Tmytry.Judgethegender; Begin If male then Gender:=’I am a man’; Else Gender:=’I am a woman’; end; 5.1 VCL的层次结构 5.1.3 VCL的通用属性、方法和事件 （3）VCL组件的事件 type TForm1 = class(TForm) button1: Tbutton; button2: Tbutton; procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button2Click(Sender: TObject); end; procedure TForm1.Button1Click(Sender: TObject); begin …… end; procedure TForm1.Button1Click(Sender: TObject); begin Button2.OnClick:= Button1Click; End; 5.2 组件栏介绍 5.2.1 界面组件 5.2 组件栏介绍 5.2.2 网络组件 5.2 组件栏介绍 5.2.2 网络组件 关键代码： if Edit3.Text begin IdTCPServer.DefaultPort := StrToInt(Edit3.Text); // 打开TCP服务器，TCP服务器开始监听客户的请求 IdTCPServer.Active := true; end; //建立连接 IdTCPClient.Host := Edit1.Text; IdTcpClient.Port := StrtoInt(Edit2.Text); try IdTCPClient.Connect; ClientHandleThread := TClientHandleThread.Create(True); ClientHandleThread.FreeOnTerminate:=True; ClientHandleThread.Resume; except on E: Exception do MessageDlg (链接错误:+#13+E.Message, mtError, [mbOk], 0); end; 5.2 组件栏介绍 5.2.3 数据库组件 BDE技术 Interbase技术 dbExpress技术 ADO技术 5.3 组件开发技术 5.3.1 自定义组件概况 组件和组件包 自定义组件的分类：界面增强类、图形图像类、多媒体类、系统类、数据库类、网络类等等 比较有名的自定义组件：：Rxlib2.75、AHM2000 for Delphi、ABC5D、XlGrid1.62、CoolMenu1.5、DragDrog3.7