procedure 窗体.SetLabelStyle(ALabel: TLabel; AType: Integer);
begin
if not Assigned(ALabel) then Exit;
with ALabel do
begin
if AType = 1 then
begin
Cursor := crHandPoint;
ParentFont := False;
Style.TextColor := clBlue;
Style.TextStyle := [fsBold, fsUnderline];
OnClick := lbPegNoClick;
end
else
begin
Cursor := crDefault;
ParentFont := True;
Style.TextColor := clWindowText;
Style.TextStyle := [];
OnClick := nil;
end;
end;
end;
TLABE点击事件
最新推荐文章于 2024-07-27 16:30:00 发布