自定義部件

原创 2007年10月10日 09:01:00
unit Employee;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TEmployee
=class(TComponent)
  private
    FName: string[
10];
    FAge: Integer;
    FSalary: Integer;
  protected
    {..................................}
  public
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
    function GetName: string;
    function GetSalary: Integer;
    function GetAge: Integer;
    procedure SetName(sName: string);
    procedure SetAge(iAge: Integer);
    procedure SetSalary(iSalary: Integer);
  published
    property Name: string read GetName write SetName;
    property Age: Integer read GetAge write SetAge;
    property Salary: Integer read GetSalary write SetSalary;
  end;

  procedure register;

implementation

procedure register;
begin
  RegisterComponents(
'Samples',[TEmployee]);
end;

{ TEmployee }

constructor TEmployee.Create(Owner: TComponent);
begin
  inherited Create(nil);
  Name :
= '';
  FAge :
= 0;
  FSalary :
= 0;
end;

destructor TEmployee.Destroy;
begin

  inherited;
end;

function TEmployee.GetAge: Integer;
begin
  GetAge :
= FAge;
end;

function TEmployee.GetName: string;
begin
  GetName :
= FName;
end;

function TEmployee.GetSalary: Integer;
begin
  GetSalary :
= FSalary;
end;

procedure TEmployee.SetAge(iAge: Integer);
begin
  FAge :
= iAge;
end;

procedure TEmployee.SetName(sName: string);
begin
  FName :
= sName;
end;

procedure TEmployee.SetSalary(iSalary: Integer);
begin
  FSalary :
= iSalary;
end;

end.
 

 

Axure RP8.0 部件

图像部件 放置图像:        ①拖放一个图像部件到设计区并双击导入图片 ②直接复制黏贴图片 添加&编辑图像文字 右键单击图像—>选择编辑文字 保持宽高比例缩放图像 ...
  • qq_35095321
  • qq_35095321
  • 2017-03-15 20:13:00
  • 731

[android] 手机卫士自定义组合控件

设置中心 新建SettingActivity   设置GridView条目的点击事件 调用GridView对象的setOnItemClickListenner()方法,参数:O...
  • chuyouyinghe
  • chuyouyinghe
  • 2017-06-27 15:59:28
  • 155

DataGridViewMaskedTextBoxColumn

  • 2009年07月13日 15:58
  • 8KB
  • 下载

自定義第三方控件

  • 2014年02月21日 09:45
  • 2.47MB
  • 下载

Qt入门学习——常用部件介绍

这里先给大家介绍 Designer(界面设计器)中例举的常用部件,以便对 Qt 的部件有一定认识,其具体用法后面再作介绍。 Layouts:布局管理组 Spacers:空间间隔组(弹簧) button...
  • tennysonsky
  • tennysonsky
  • 2015-08-28 15:46:09
  • 2343

Android 自定義下一個Actiivty出現的方式

  • 2011年10月15日 14:46
  • 17KB
  • 下载

EPLAN_新建部件库与新建部件的操作细则

  • 2015年03月22日 21:45
  • 2.12MB
  • 下载

civil3d 部件编辑器 2016 汉化版

  • 2017年10月19日 10:36
  • 2.32MB
  • 下载

Android自定义下拉刷新

网上的下拉刷新功能很多,不过基本上都是隐藏header的,而项目里面需要只隐藏部分的header,类似QQ好友动态的效果,修改了一些现有的,最后有很多问题,所以就自己自定义了一个,逻辑也很简单,首先就...
  • jwzhangjie
  • jwzhangjie
  • 2013-12-16 23:50:12
  • 3771

QT 常用部件

一. QFrame类部件 QFrame类族,包括QLabel, QLCDNumber, QSackedWidget, QToolBox, QSplitter, QAbstractScrollArea...
  • lwbeyond
  • lwbeyond
  • 2014-11-11 12:48:07
  • 3792
收藏助手
不良信息举报
您举报文章:自定義部件
举报原因:
原因补充:

(最多只允许输入30个字)