delphi怎样处理实现QQ的叉叉(关闭)等,鼠标碰到就变蓝,点一下就变红(这没问题)鼠标离开之后便会原状

有什么控件可以实现,跪求大神的答案
2025-02-03 03:51:56
推荐回答(2个)
回答1:

1 重载WM_NCPAINT,然后自己去写,这个查资料。
2 个人建议这个办法 较为偷懒
先做一个没有标题栏的窗体(form.BorderStyle:=bsNone),然后在顶端加上一个PANEL试试,即做个假的标题栏。这样想怎么改就怎么改了。

回答2:

rz有一个 bmpbutton可以实现
bmpbutton中有几种状态按钮(up正常状态下的按钮图片,over鼠标悬停状态的图片,down鼠标按下状态的图片)
tms中也有 gdibutton 跟上面那个类似
也可以结合事件(mouseenter mouseleave)等事件 自己画