TLABE点击事件

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;