100分请高手帮忙解决如何修改窗体调用的文字!详情请进!!

Question

我有一套卡啦OK点播系统,原开发商已经不做了,现在公司里要求更改一下点播系统界面上会变换颜色显示的文字,试过很多方法也更改不了,请高手帮帮忙! 我用DELPHI看过,在主界面上有一个窗体调用文字来显示的,我就是找不着这个窗体到底是在哪里调用这几个文字的! 这个是窗体的代码: 
object NameLtd: TLabel 
    Left = 192 
    Top = 104 
    Width = 433 
    Height = 21 
    Alignment = taCenter 
    AutoSize = False 
    BiDiMode = bdLeftToRight 
    Color = 16709761 
    Font.Charset = GB2312_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -21 
    Font.Name =  '黑体 ' 
    Font.Style = [] 
    ParentBiDiMode = False 
    ParentColor = False 
    ParentFont = False 
    ParentShowHint = False 
    ShowAccelChar = False 
    ShowHint = False 
    Transparent = True 
  end 
高手帮帮忙,愿献上100分!!!

Answer 1

回小和:
对,代码里是有一段用来控制它的,但我看了这段代码也找不到什么
这段代码该怎么设置它呢?
代码如下:
 object TimerNameLtd: TTimer
    Interval = 3000
    OnTimer = TimerNameLtdTimer
    Left = 288
    Top = 104
  end
这只是控制时间而已!

Answer 2

把 TimerNameLtdTimer 函数给我，我帮你看看，估计在它里面

Answer 3

在设计界面中选中TimerNameLtd控件，再从属性中设置Enabled为False就可以了。

Answer 4

object NameLtd: TLabel
  ...
  caption='显示文字'
end

Answer 5

设置Enabled为False后有什么变化呢????
我也改不了文字啊?

Answer 6

设置Enabled为False后运行程序原来会变换颜色的文字变成不会变色的文字了,
我不是要让文字显示出来,而是要把这几个字替换成别的文字

Answer 7

NameLtd.Caption = 'LZ要显示的文字';
NameLtd.Font.Font.Color = RGB(255, 0, 0); //这个参数调一下，就可以改变颜色

Answer 8

大家可能理解错我的意思了!
我是想把原程序里显示的字替换成我想要的字原程序里Nameltd里的Caption根本就没填任何东西

Answer 9

或者可不可以这样做,我把原来的字隐藏起来
用DELPHI再开一个窗体填上我想要的字,让它变换颜色?
但要怎么写代码呢?(也就是在DELPHI里怎么操作)

Answer 10

楼主给你说了几遍了，让你把TimerNameLtdTimer函数贴出来，你就是不贴了，看，到现在问题还没有解决，
问题就在那个函数里，贴出来吧，把文字一改就可以了，很简单的

Answer 11

不是我不想贴出来,而是我只找到这些代码!
object TimerNameLtd: TTimer 
    Interval = 3000 
    OnTimer = TimerNameLtdTimer 
    Left = 288 
    Top = 104 
  end 我也看过DELPHI的教程,一般窗体可以写代码的,但这里我打不开!
我估计函数被做了保护吧!

Answer 12

这是整段主界面的代码: 
object MainOKForm: TMainOKForm 
  Left = 0 
  Top = -12 
  BorderStyle = bsNone 
  Caption =  'MainOKForm ' 
  ClientHeight = 569 
  ClientWidth = 791 
  Color = clBtnFace 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -11 
  Font.Name =  'MS Sans Serif ' 
  Font.Style = [] 
  OldCreateOrder = False 
  Position = poScreenCenter 
  Visible = True 
  OnClose = FormClose 
  OnCreate = FormCreate 
  OnDestroy = FormDestroy 
  OnKeyDown = FormKeyDown 
  PixelsPerInch = 96 
  TextHeight = 13 
  object Image1: TImage 
    Left = 0 
    Top = 0 
    Width = 801 
    Height = 601 
    Align = alClient 
    AutoSize = True 
    Picture.Data = { 二进制数据 (将文件保存到磁盘后可查看) } 
  end 
  object Label1: TLabel 
    Left = 144 
    Top = 118 
    Width = 265 
    Height = 72 
    AutoSize = False 
    Transparent = True 
    OnClick = Label1Click 
  end 
  object Label2: TLabel 
    Left = 144 
    Top = 201 
    Width = 265 
    Height = 72 
    AutoSize = False 
    Transparent = True 
    OnClick = Label2Click 
  end 
  object Label3: TLabel 
    Left = 144 
    Top = 275 
    Width = 257 
    Height = 76 
    AutoSize = False 
    Transparent = True 
    OnClick = Label3Click 
  end 
  object Label4: TLabel 
    Left = 144 
    Top = 366 
    Width = 257 
    Height = 72 
    AutoSize = False 
    Transparent = True 
    OnClick = Label4Click 
  end 
  object Label5: TLabel 
    Left = 144 
    Top = 448 
    Width = 265 
    Height = 72 
    AutoSize = False 
    Transparent = True 
    OnClick = Label5Click 
  end 
  object Label6: TLabel 
    Left = 433 
    Top = 126 
    Width = 264 
    Height = 72 
    AutoSize = False 
    Transparent = True 
    OnClick = Label6Click 
  end 
  object Label7: TLabel 
    Left = 432 
    Top = 201 
    Width = 257 
    Height = 72 
    AutoSize = False 
    Transparent = True 
    OnClick = Label7Click 
  end 
  object Label8: TLabel 
    Left = 432 
    Top = 283 
    Width = 257 
    Height = 72 
    AutoSize = False 
    Transparent = True 
    OnClick = Label8Click 
  end 
  object Label9: TLabel 
    Left = 432 
    Top = 366 
    Width = 257 
    Height = 72 
    AutoSize = False 
    Transparent = True 
    OnClick = Label9Click 
  end 
  object Label10: TLabel 
    Left = 432 
    Top = 448 
    Width = 257 
    Height = 72 
    AutoSize = False 
    Transparent = True 
    OnClick = Label10Click 
  end 
  object Label11: TLabel 
    Left = 676 
    Top = 3 
    Width = 101 
    Height = 54 
    AutoSize = False 
    Transparent = True 
    OnClick = Label11Click 
  end 
  object NameLtd: TLabel 
    Left = 0 
    Top = -1 
    Width = 0 
    Height = 0 
    Alignment = taCenter 
    AutoSize = False 
    BiDiMode = bdLeftToRight 
    Color = clGreen 
    Font.Charset = ANSI_CHARSET 
    Font.Color = clGreen 
    Font.Height = -1 
    Font.Name =  'Arial ' 
    Font.Style = [] 
    ParentBiDiMode = False 
    ParentColor = False 
    ParentFont = False 
    ParentShowHint = False 
    ShowAccelChar = False 
    ShowHint = False 
    Transparent = True 
  end 
  object BtnVoice: TLabel 
    Left = 360 
    Top = 72 
    Width = 25 
    Height = 25 
    AutoSize = False 
    ParentShowHint = False 
    ShowHint = True 
    Transparent = True 
  end 
  object BtnRepeat: TLabel 
    Left = 400 
    Top = 72 
    Width = 25 
    Height = 25 
    AutoSize = False 
    ParentShowHint = False 
    ShowHint = True 
    Transparent = True 
  end 
  object BtnStop: TLabel 
    Left = 435 
    Top = 72 
    Width = 25 
    Height = 25 
    AutoSize = False 
    ParentShowHint = False 
    ShowHint = True 
    Transparent = True 
  end 
  object FangHao: TLabel 
    Left = 128 
    Top = 560 
    Width = 79 
    Height = 23 
    Caption =  'FangHao ' 
    Font.Charset = ANSI_CHARSET 
    Font.Color = clLime 
    Font.Height = -20 
    Font.Name =  'Arial ' 
    Font.Style = [] 
    ParentFont = False 
    Transparent = True 
  end 
  object MyserverName: TLabel 
    Left = 336 
    Top = 560 
    Width = 79 
    Height = 23 
    Caption =  'FangHao ' 
    Color = clBtnFace 
    Font.Charset = ANSI_CHARSET 
    Font.Color = clLime 
    Font.Height = -20 
    Font.Name =  'Arial ' 
    Font.Style = [] 
    ParentColor = False 
    ParentFont = False 
    Transparent = True 
  end 
  object Label17: TLabel 
    Left = 256 
    Top = 512 
    Width = 65 
    Height = 41 
    Cursor = crHandPoint 
    AutoSize = False 
    Font.Charset = GB2312_CHARSET 
    Font.Color = clRed 
    Font.Height = -29 
    Font.Name =  'MS Sans Serif ' 
    Font.Style = [fsBold] 
    ParentFont = False 
    Transparent = True 
    OnClick = Label17Click 
  end 
  object Label14: TLabel 
    Left = 176 
    Top = 512 
    Width = 65 
    Height = 41 
    Cursor = crHandPoint 
    AutoSize = False 
    Font.Charset = GB2312_CHARSET 
    Font.Color = clRed 
    Font.Height = -29 
    Font.Name =  'MS Sans Serif ' 
    Font.Style = [fsBold] 
    ParentFont = False 
    Transparent = True 
    OnClick = Label14Click 
  end 
  object Label13: TLabel 
    Left = 336 
    Top = 512 
    Width = 57 
    Height = 41 
    Cursor = crHandPoint 
    AutoSize = False 
    Font.Charset = GB2312_CHARSET 
    Font.Color = clRed 
    Font.Height = -29 
    Font.Name =  'MS Sans Serif ' 
    Font.Style = [fsBold] 
    ParentFont = False 
    Transparent = True 
    OnClick = Label13Click 
  end 
  object Label15: TLabel 
    Left = 408 
    Top = 512 
    Width = 65 
    Height = 41 
    Cursor = crHandPoint 
    AutoSize = False 
    Font.Charset = GB2312_CHARSET 
    Font.Color = clRed 
    Font.Height = -29 
    Font.Name =  'MS Sans Serif ' 
    Font.Style = [fsBold] 
    ParentFont = False 
    Transparent = True 
    OnClick = Label15Click 
  end 
  object Label16: TLabel 
    Left = 482 
    Top = 512 
    Width = 79 
    Height = 41 
    Cursor = crHandPoint 
    AutoSize = False 
    Font.Charset = GB2312_CHARSET 
    Font.Color = clRed 
    Font.Height = -29 
    Font.Name =  'MS Sans Serif ' 
    Font.Style = [fsBold] 
    ParentFont = False 
    Transparent = True 
    OnClick = Label16Click 
  end 
  object Label18: TLabel 
    Left = 568 
    Top = 512 
    Width = 73 
    Height = 41 
    Cursor = crHandPoint 
    AutoSize = False 
    Font.Charset = GB2312_CHARSET 
    Font.Color = clRed 
    Font.Height = -29 
    Font.Name =  'MS Sans Serif ' 
    Font.Style = [fsBold] 
    ParentFont = False 
    Transparent = True 
    OnClick = Label18Click 
  end 
  object TimerPlaying: TTimer 
    OnTimer = TimerPlayingTimer 
    Left = 168 
    Top = 104 
  end 
  object TimerMoving: TTimer 
    Enabled = False 
    Interval = 100 
    OnTimer = TimerMovingTimer 
    Left = 208 
    Top = 104 
  end 
  object TimerReadMove: TTimer 
    Interval = 30000 
    OnTimer = TimerReadMoveTimer 
    Left = 248 
    Top = 104 
  end 
  object TimerNameLtd: TTimer 
    Interval = 3000 
    OnTimer = TimerNameLtdTimer 
    Left = 288 
    Top = 104 
  end 

Answer 13

把系统中所有文件LIST一份发上来！

Answer 14

你丫要修改的内容在脚本文件中，不是在窗体文件中，你丫把这个窗体文件发上来一点儿用都没有。不过现在可以证明一点就是你丫根本就不会用DELPHI！而且一点儿都不虚心！！