如何实现:当鼠标移到某图片控件(Timage)时图片边框加亮或颜色变化,移出后恢复原样?急!请高手们帮忙!(50分)

  • 主题发起人 主题发起人 lizhongyi
  • 开始时间 开始时间
建议用两个图片,当MOVE时为一个,MOVE other时变回
 
将IMAGE放在一个PANEL中,然后在IMAGE的MOUSEMOVE和表单的MOUSEMOVE中加上如下代码,
具体的可以自己去看了.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.BevelInner:=bvLowered;
Panel.Color:=clBlue;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.BevelInner:=bvNone;
Panel1.Color:=clBtnFace;
end;
 
EASY啊~ 在Image的OnMouseLeave和OnMouseMove事件里做
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部