Código Delphi [-] with Label1 do if Caption > '' then begin Font.Style := [fsBold,fsUnderline,fsItalic]; // negrita, subrayada, itálica Font.Color := clRed; // rojo Font.Size := 14; // tamaño 14 Font.Name := 'MS Gothic'; // nombre de la fuente end;
with Label1 do if Caption > '' then begin Font.Style := [fsBold,fsUnderline,fsItalic]; // negrita, subrayada, itálica Font.Color := clRed; // rojo Font.Size := 14; // tamaño 14 Font.Name := 'MS Gothic'; // nombre de la fuente end;