| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265587
建立时间:2005年6月6日 |
| |
|
 [delpih编程]自定义tmylabel控件及font.style的用法
软件技术
吕向阳 发表于 2009/3/11 13:42:13 |
|
type TMyLabel = class(TLabel) private procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; public constructor Create(AOwner: TComponent); override; end;
procedure TMyLabel.CMMouseEnter(var Message: TMessage);begin font.size := 17; Font.Color := clBlue; Font.Style := Font.Style + [fsUnderLine, fsbold];end;
procedure TMyLabel.CMMouseLeave(var Message: TMessage);begin font.Size := 16; Font.Color := clBlack; Font.Style := Font.Style - [fsUnderLine, fsbold];end;
constructor TMyLabel.Create(AOwner: TComponent);begin inherited; Cursor := crHandPoint;end;备忘目的：font.style的用法 |
|
|