delphi中Lcdscreen控件

Question

想用此来模拟LED，谁有例子呢，不懂LCDSCREEN，先谢了

Answer 1

挺容易的装好LCDScreen控件后：
1、在窗体上添加一个TLCDScreen
2、通过color, font, border 这些属性设置。
3、点击 Lines 属性，TLCDScreen.Lines 编辑框就出现了。
   注意一下：这个Lines 属性是基于TStringList的，长度不超过255.运行时选中编辑框里的文字，就可以设置效果了（编辑框的右边）
（SpecialEffects属性设成on）

Answer 2

运行时也可以改变效果：
LCDScreen1.Lines.Clear;
LCDScreen1.Lines.Append( ' LCDScreen ' + startbold_tag +startunderline_tag + 'version'+ stopunderline_tag + stopbold_tag + ' 3');
可以用这些标记控制效果startinverse_tag   = '<inv>';stopinverse_tag    = '</inv>'; startblinking_tag  = '<bl>';stopblinking_tag   = '</bl>'; startunderline_tag = '<u>';stopunderline_tag  = '</u>'; startstrike_tag    = '<s>';stopstrike_tag     = '</s>'; startbold_tag      = '<b>';stopbold_tag       = '</b>'; startitalic_tag    = '<i>';stopitalic_tag     = '</i>';

Answer 3

可以在详细点吗，我想在EDIT里面输入内容，在LCDSCREEN显示，如果想从右往左滚动显示呢?
行的话，分全给你

Answer 4

LCDScreen里面设的是显示效果
动态效果，需要在窗体上再添加一个LCDAnimator 控件，比如LCDAnimator1
在LCDAnimator1的Code里添加动作代码：
  比如[HorzScroll(2); ]
[HorzScroll(1); VertScroll(1); ]
[HorzScroll(1); VertScroll(1); ]
[VertScroll(1); ]
[VertScroll(1); ]
[HorzScroll(-1); VertScroll(1); ]
[HorzScroll(-1); VertScroll(1); ]HorzScroll就是水平移动了。然后，将 LCDScreen 的 LCDAnimator 属性值，设为 LCDAnimator1
LCDScreen就按LCDAnimator1的设置执行效果了

Answer 5

LCDScreen1.Lines基于TStringlist 所以你的Edit1.text这样传给它：
LCDScreen1.Lines.Append(Edit1.Text);
或
LCDScreen1.Lines.Add(Edit1.Text);

Answer 6

我在工程里放入三个控件，一个LCDSCREEN，一个LCDAnimator1 ，一个EDIT,我是那样传的啊，你可以把代码发下吗

Answer 7

10楼的，有这个控件的资料不呢，传给我哦，[email protected]。谢谢了哦

Answer 8

procedure TForm1.LCDScreen1Click(Sender: TObject);
begin
LCDScreen1.Lines.Add(Edit1.Text);
end;end.
运行时在EDIT1里面输入内容，怎么显示呢

Answer 9

既然你放在这里：procedure TForm1.LCDScreen1Click(Sender: TObject);
那就是单击LCDScreen1，显示Edit1的文本放在一个按钮里的话：
procedure TForm1.Button1Click(Sender: TObject);
那就是单击按钮，显示Edit1的文本

Answer 10

将 LCDScreen 的 LCDAnimator 属性值，设为 LCDAnimator1 
LCDAnimator1 的code属性里添加:
   [HorzScroll(-2); ]
   [HorzScroll(-2); ]
   [HorzScroll(-2); ]

Answer 11

LCDScreen1.Lines.Clear;
LCDScreen1.Lines里面不能为空的内容吗

Answer 12

 [HorzScroll(-2); ] 
  [HorzScroll(-2); ] 
  [HorzScroll(-2); ] 
说没有定义啊

Answer 13

LCDAnimator1 的code属性 不是有个(TStrings)吗，在它右边有个“...”，点击“...”后，弹出个
String List Editor
在这个弹出的对话框里输入
[HorzScroll(-2); ] 
[HorzScroll(-2); ] 
[HorzScroll(-2); ] 再点 OK

Answer 14

LCDScreen1.AnimationEnabled := True; //这句一定要加上，要不效果出不来
LCDScreen1.Lines.Append(Edit1.Text);
LCDScreen1.Enabled:=true;

Answer 15

LCDScreen1.AnimationRepeating:=true;
循环滚动

Answer 16

在输入框输入一次运行会显示，在输入一次，按BUTTON怎么会报错哦