需要实现一半透明控件从左至右将一memo中的文字遮盖住,即memo 字被盖住后仍能看到或者如何控制memo 中的文字被逐个选中状态

解决方案 »

  1.   

    把Memo控件换不RichEdit应该就可以了吧
      

  2.   

    控制memo 或者 RichEdit 中的文字如何逐个呈现高亮状态
      

  3.   

    控制memo 或者 RichEdit 中的文字如何逐个呈现高亮选中状态能让panel半透明遮盖也可以
      

  4.   

    DELPHI 7 中有个属性是调整透明度的,什么控件都应该可以
      

  5.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      memo1.Lines.Clear;
      memo1.Lines.Add('sdfsdfsdf234234');
      memo1.SetFocus;
      memo1.SelStart:=10;
      memo1.SelLength:=3;
    end;
      

  6.   

    定义一个全局变量 i 
    然后放一个richedit 在 窗体上,放一个timer,他的enabled 开始为false 
    在timer的 ontimer 事件中加入
    richedit1.SetFocus;
    if i< length(richedit1.Lines.Text) then
    begin
      richedit1.SelStart:=i;
      richedit1.SelLength:=2;
      inc(i);
    end; 
    在一个按钮事件中 加  timer.enabled:=true; 
    可以把timer的计时速度调为 3000,速度可根据需要调节 
    可以把   richedit1.SelLength:=2; 改为   richedit1.SelLength:=1  这根据你的需要 至于透明的panel,我估计得改写代码,或者自己写一个控件,把TcustomForm 类中的  
    SetLayeredAttribs
    SetAlphaBlend  
    SetAlphaBlendValue
    搞过去,处理一下,应该可以的,试试先!