begin
inherited;
FTempColor := clWindow;
FTempFont := TFont.Create;
FTouchFont := TFont.Create;
isStoreTouchFont := True;
end;
destructor TTouchLable.Destroy;
begin
FTempFont.Free;
FTouchFont.Free;
inherited;
end;
function TTouchLable.GetTouchColor: TColor;
begin
Result := FTouchColor;
end;
function TTouchLable.isStoreTouchColor: Boolean;
begin
Result := (FColor <> FTouchColor);
end;
procedure TTouchLable.MouseEnter(AControl: TControl);
begin
inherited;
if not ChangeWhileTouch then exit;
if FColor <> FTouchColor then
begin
FTempColor := Color;
Color := TouchColor;
end;
FTempFont.Assign(Font);
Font.Assign(TouchFont);
end;
procedure TTouchLable.MouseLeave(AControl: TControl);
begin
inherited;
if not ChangeWhileTouch then exit;
if FColor <> FTouchColor then
Color := FTempColor;
Font.Assign(FTempFont);
end;
procedure TTouchLable.SetTouchColor(AColor: TColor);
begin
FTouchColor := AColor;
end;
procedure TTouchLable.SetTouchFont(AFont: TFont);
begin
FTouchFont.Assign(AFont);
isStoreTouchFont := True;
end;
end.
上一篇： 用Delphi实现打印功能
下一篇： 用Delphi控制IE窗口
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
