自定義部件

原创 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.
 

 

YTUOJ-学生成绩输入和输出(用户自定义类型)

题目描述 编写一个函数print,打印一个学生的成绩数组,该数组中有5个学生的数据,每个学生的数据包括num(学号)、name(姓名)、score[3](3门课的成绩)。编写一个函数input,用来...
  • Liuchang54
  • Liuchang54
  • 2015年03月18日 08:50
  • 625

如何自定义iOS中的控件

本文译自How to build a custom control in iOS。大家要是有什么问题,可以直接在twitter上联系原作者,当然也可以在最后的评论中回复我。 下面先来看看目录: ...
  • showhilllee
  • showhilllee
  • 2014年04月21日 15:08
  • 24265

输入金额,SpannableStringBuilder,Dialog无主题和透明背景的使用

转载请注明出处:  整理了开发汇中遇到的一些小细节。 1.在EditText中输入金额,只能输入正确的金额格式,例如:0.01,0.1,0,123,123.0,123.01 activity_main...
  • forwardyzk
  • forwardyzk
  • 2015年01月30日 16:30
  • 1002

創建自定義控件

引入佈局可以使佈局統一,但如果佈局中有控件要能夠响应事件,我们还是需要在每个活动中对控件进行事件的注册。 我们可以使用自定义控件的方式解决 新建TitleLayout 类并继承LinearLayo...
  • jlz87
  • jlz87
  • 2016年05月24日 14:05
  • 141

SQL 自定義函數

一、作用: 1、函數的執行速度比普通的SQL代碼快:函數在重執行時通過緩存計劃來降低SQL編譯開銷,從而避免了重複解析與優化,縮短了執行時間,提高數據庫的性能。 2、模塊化的設計,提高數據庫與應用...
  • cuivivid
  • cuivivid
  • 2013年05月19日 16:24
  • 497

<Python> 自定義類+引用方法

兩步步驟: PARTA 添加文件至site-packages目錄下 PARTB  添加位置說明檔...
  • vivianwang0709
  • vivianwang0709
  • 2016年06月23日 13:34
  • 88

SpringMVC自定義Converter配置需要注意

  • man_to_home
  • man_to_home
  • 2017年02月07日 15:40
  • 452

python3+PyQt5 实现自定义窗口部件--Counters自定窗口部件

本文通过Python3+PyQt5实现自定义部件–Counters自定 窗口部件。这个窗口是3*3的网格。本文有两个例子如下: /home/yrd/eric_workspace/chap11/cou...
  • xiaoyangyang20
  • xiaoyangyang20
  • 2017年02月19日 11:26
  • 707

surfaceview-自定義畫圖或顯示圖片

package com.example.mysurfaceview; import android.os.Bundle; import android.app.Activity; import a...
  • yqj234
  • yqj234
  • 2016年06月28日 19:20
  • 252

GridView自定義分頁---派生類(1)

数据量很大时,使用gridview内置的分頁功能,页面加载会非常的慢,此处自定义分頁是在需要时才加载当页数据。 using System; using System.Collections...
  • gaoqianqian5
  • gaoqianqian5
  • 2013年10月22日 15:38
  • 519
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自定義部件
举报原因:
原因补充:

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