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;