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.