在对象的事件区中,Sender是用来指出哪个组件接收此事件,而调用事件的Handler
(事件句柄),而且能通过Sender参数来,让多个组件共享一个事件区.
在该事件区中,用Sender参数作为条件语句的分支条件,就能依据不同组件接收的
情况,而有不同的表现,
(事件句柄),而且能通过Sender参数来,让多个组件共享一个事件区.
在该事件区中,用Sender参数作为条件语句的分支条件,就能依据不同组件接收的
情况,而有不同的表现,
1
unit Unit1;
2![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
interface
4![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
uses
6
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7
Dialogs, StdCtrls;
8![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
9
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![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
23
var
24
Form1: TForm1;
25![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
26
implementation
27![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
28
{$R *.dfm}
29![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
30
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![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
46
end;
47![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
48
end.
49![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
50![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
2
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
5
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
6
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
7
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
8
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
9
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
10
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
11
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
12
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
13
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
14
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
15
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
16
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
17
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
18
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
19
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
20
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
21
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
22
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
23
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
24
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
25
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
26
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
27
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
28
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
29
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
30
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
31
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
32
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
33
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
34
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
35
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
36
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
37
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
38
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
39
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
40
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
41
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
42
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
43
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
44
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
45
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
46
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
47
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
48
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
49
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
50
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)