1个Sender的完整例子

最新推荐文章于 2021-10-30 17:42:29 发布

原创最新推荐文章于 2021-10-30 17:42:29 发布 · 489 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#button #integer #forms #windows #object

本文介绍了一个使用Delphi编写的简单窗体应用程序，该程序包含多个按钮和一个检查列表框。文章详细展示了如何为这些按钮绑定点击事件，并通过事件处理函数实现不同的功能，例如显示消息框和使窗体抖动。

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.