vivo桌面怎么添加字？

桌面添加文字可以尝试设置设置手机桌面心情的方法：

Origin OS 3/Ocean：长按桌面空白位置--添加--原子组件--更多组件--时钟（轻简约）--长按拖动到桌面--点击“抒写心情”--填写内容--完成后即可。

Origin OS 1.0：在经典桌面下--长按桌面空白位置--原子组件--时钟--时钟（轻简约）--长按拖动到桌面--点击“抒写心情”--填写内容--完成后即可。

Funtouch OS：长按桌面空白位置--桌面挂件--时钟（轻简约）--长按拖动到桌面--点击“抒写心情”--填写内容--完成后即可。

更多疑惑，可以进入vivo官网--点击我的—在线客服，输入“人工”联系在线客服处理。

//参考如下代码去做

//code by onesue

unit Unit1

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ImgList, ComCtrls

type

TForm1 = class(TForm)

ComboBoxEx1: TComboBoxEx

ImageList1: TImageList

Button1: TButton

Button2: TButton

procedure Button1Click(Sender: TObject)

procedure Button2Click(Sender: TObject)

private

{ Private declarations }

public

{ Public declarations }

end

var

Form1: TForm1

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject)

var

oneItem: TComboExItem

index:Integer

begin

//直接添加

index:= ComboBoxEx1.Items.IndexOf('Test')

if index=-1 then

begin

oneItem:=ComboBoxEx1.ItemsEx.Add

oneItem.Caption:='Test'

if ComboBoxEx1.Images <>nil then //要指定图片列表

begin

oneItem.ImageIndex:=1

end

end

end

procedure TForm1.Button2Click(Sender: TObject)

var

index:Integer

begin

//间接制定图片

index:= ComboBoxEx1.Items.IndexOf('Test2')

if index=-1 then

ComboBoxEx1.Items.Add('Test2')

index:= ComboBoxEx1.Items.IndexOf('Test2')

if index<>-1 then

begin

if ComboBoxEx1.Images <>nil then //要指定图片列表

begin

ComboBoxEx1.ItemsEx[index].ImageIndex:=0

end

end

end

end.

不知往什么组件添加文本，如果更改启动窗口标题，那可以这样：

_启动窗口.标题 ＝ “我的程序”

如果往编辑框添加文本，那可以读文件，你要把编辑框组件的属性 是否多行设置为真。

.程序集 窗口程序集1

.程序集变量 文件号, 整数型

.子程序 __启动窗口_创建完毕

_启动窗口.标题 ＝ “我的程序”

文件号 ＝ 打开文件 (“123.txt”, #读入, )

编辑框1.内容 ＝ 读入文本 (文件号, )

这样标签其他组件和上面的编辑框读差不多。

---