判断当前鼠标处于某个位置(TAG)
case TComponent(Sender).Tag of
0: begin
...
lbBarBackgroud.Caption := sCustomImage;
end;
1: begin
...
lbBarBackgroud.Caption := sCustomImage;
end;
2: begin
...
lbBarBackgroud.Caption := sCustomImage;
end;
判断当前鼠标处于某个位置
最新推荐文章于 2021-09-10 19:14:52 发布