Image1鼠标进入、离开时

最新推荐文章于 2021-05-01 23:47:03 发布

原创最新推荐文章于 2021-05-01 23:47:03 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#image #integer #button #forms #windows #class

其他专栏收录该内容

13 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的简单程序，该程序通过不同的鼠标事件改变图像控件(Image1)的状态。当鼠标悬停、按下、抬起或离开图像时，图像会显示不同的状态图片。这种交互方式常用于按钮或指示器的设计中。

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, StdCtrls, ImgList; type TForm1 = class(TForm) Image1: TImage; procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; public { Public declarations } end; var Form1: TForm1; i : Integer = 0; implementation {$R *.dfm} procedure TForm1.CMMouseEnter(var Message: TMessage); begin // Image1.Picture.LoadFromFile('on.bmp'); end; procedure TForm1.CMMouseLeave(var Message: TMessage); begin Image1.Picture.LoadFromFile('out.bmp'); i:= 0 ; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('on.bmp'); end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('in.bmp'); end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if i= 0 then begin Image1.Picture.LoadFromFile('on.bmp'); i := 1 ; end; end; end.