16,747
社区成员




private
{ Private declarations }
procedure CMMOUSEENTER(var msg: TMessage); message CM_MOUSEENTER;
procedure TForm1.CMMOUSEENTER(var msg: TMessage);
begin
if integer(self.BitBtn2) = msg.LParam then
self.BitBtn2.Glyph.LoadFromFile('F:\常用图标\BMP16\确定16.bmp')
else
self.BitBtn2.Glyph.LoadFromFile('F:\常用图标\BMP16\查询16.bmp')
end;