delphi Sender 的用法举例


本文整理自网络,侵删。

 unit Sender; 

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
CheckListBox1: TCheckListBox;
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure CheckListBox1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
s:string;
s2: string;
begin
s2 := 'Welcome to here,';
if sender=button1 then
s:='你按的是button1'
else if sender=button2 then
s:='你按的是button2'
else if sender=button3 then
s:='你按的是button3'
else
s:='unknown object';
showmessage(s2 + 'you clicked'+s);
end;
procedure ShockWin(Sender: TForm);
var i:Integer;
begin
for I := 0 to 4 do
begin
Sender.Top := Sender.Top - 3; Sleep(60);
Sender.Left := Sender.Left - 3; Sleep(60);
Sender.Top := Sender.Top + 3; Sleep(60);
Sender.Left := Sender.Left + 3; Sleep(60);
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ShockWin(Form1);
end;
procedure TForm1.ChecklistBox1Click(Sender: TObject);
begin
if ChecklistBox1.enabled=true then
begin
Application.MessageBox('click','提示信息');
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
ChecklistBox1Click(Sender);
end;
end.

相关阅读 >>

Delphi如何获取句柄?

Delphi 字符串转换ascii码10进制

Delphi free和freeandnil之间的区别

Delphi for 循环 to和downto的理解

Delphi2010 的自带的内存泄漏检测

Delphi 校验注册码时的技巧

Delphi 根据年份获取年干支

orangeui作者开源作品

Delphi安装*.pas扩展名的控件

Delphi 用注册表对Delphi程序进行验证

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...