本文整理自网络，侵删。
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 fdconnection查看所有表包含用户表和系统表
Delphi tms web core twebsocketclient
Delphi idhttpserver接收http get请求解码问题
更多相关阅读请进入《Delphi》频道 >>
