Sender的意义及使用举例

在对象的事件区中,Sender是用来指出哪个组件接收此事件,而调用事件的Handler
(事件句柄)，而且能通过Ｓender参数来，让多个组件共享一个事件区．
在该事件区中，用Ｓender参数作为条件语句的分支条件，就能依据不同组件接收的
情况，而有不同的表现，

unit Unit1;
2

interface
4

uses
6

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7

Dialogs, StdCtrls;
8

type
10

TForm1 = class(TForm)
11

Label1: TLabel;
12

Button1: TButton;
13

Button2: TButton;
14

Button3: TButton;
15

Button4: TButton;
16

procedure Button1Click(Sender: TObject);
17

private
18

{ Private declarations }
19

public
20

{ Public declarations }
21

end;
22

var
24

Form1: TForm1;
25

implementation
27

{$R *.dfm}
29

procedure TForm1.Button1Click(Sender: TObject);
31

VAR
32

SenderNum: Integer;
33

begin
34

SenderNum := 1;
35

IF Sender = Button1 THEN SenderNum := 1;
36

IF Sender = Button2 THEN SenderNum := 2;
37

IF Sender = Button3 THEN SenderNum := 3;
38

IF Sender = Button4 THEN SenderNum := 4;
39

CASE SenderNum OF //
40

1: Label1.Top := Label1.Top - 10 ;
41

2: Label1.Top := Label1.Top + 10 ;
42

3: Label1.Left := Label1.Left - 10 ;
43

4: Label1.Left := Label1.Left + 10 ;
44

END; // case
45

end;
47

end.
49

转载于:https://www.cnblogs.com/dreamszx/archive/2009/09/22/1572020.html

Sender的意义及使用举例相关推荐

零基础Java学习之抽象类
抽象类介绍抽象:即不具体.或无法具体例如:当我们声明一个几个图形类:圆.矩形.三角形类等,发现这些类都有共同特征:求面积.求周长.获取图形详细信息.那么这些共同特征应该抽取到一个公共父类中.但是 ...
JS的Event属性和方法
Event对象只在事件发生的过程中才有效. Event的某些属性只对特定的事件有意义.比如,fromElement 和 toElement 属性只对 onmouseover 和 onmouseout ...
小孩孩子应用题计算机错误,孩子应用题失分的主要原因是什么？家长来看看
怎么看应用题需要用到加减法?还是乘除法?相信难倒了很多孩子.如果不清楚运算的话,应用题很大可能扣分严重. 小杰是一个四年级的学生,语文英语成绩优异,但是数学成绩却不及格,主要问题就是应用题才得4.5分 ...
【继承、super、this、抽象类】
一继承 1.1 概述多个类可以称为子类,单独那一个类称为父类.超类(superclass)或者基类. 继承描述的是事物之间的所属关系,这种关系是:is-a 的关系. 定义继承:就是子类继承父类的 ...
【渝粤题库】陕西师范大学210015幼儿园社会教育作业（高起专）
<幼儿园社会教育>作业一.单选题 1.谁创立了发生认识论并提出了儿童认知发展阶段论() A．班杜拉 B．弗洛伊德 C．皮亚杰D．柯尔伯格 2.下列不属于安斯沃思对婴幼儿的依恋分类的是( ...
[渝粤题库]陕西师范大学《幼儿园社会教育》作业
<幼儿园社会教育>作业一.单选题 1.谁创立了发生认识论并提出了儿童认知发展阶段论() A．班杜拉 B．弗洛伊德 C．皮亚杰D．柯尔伯格 2.下列不属于安斯沃思对婴幼儿的依 ...
SSH框架之Spring4专题3：Spring与AOP
1 AOP的引入 1.1 Step1:项目aop_leadin1 先定义好接口与一个实现类,该实现类中除了要实现接口中的方法外,还要再写两个非业务方法,非业务方法也称之为交叉业务逻辑: doTrans ...
t检验的p值对照表_统计学|各类统计检验方法大汇总
点击蓝字关注我们教材中(<医学统计学>第七版,李康.贺佳,人民卫生出版社)列举了对于不同类型的资料,可以使用包括t检验.方差分析.卡方检验.非参数检验.直线回归与相关等在内的不同方法处理 ...
python 重写抽象类编译错误_从零开始的Java之旅5.0继承、super、this、抽象类
前言昨天我们对Java的类与对象.封装.构造方法进行了充分讲解,今日我们学习继承.super.this.抽象类今日内容: 三大特性--继承方法重写 super关键字 this关键字抽象类继承 ...

Sender的意义及使用举例

Sender的意义及使用举例相关推荐

最新文章

热门文章