急！为什么RichEdit中的CFM_HIDDEN(隐藏)没有效果，象其他的CFM_STRIKEOUT(删除线)却有效果，我用的是RichEdit3.0版本。

Question

代码如下：
procedure TForm6.Button5Click(Sender: TObject);
var
  Format: TCharFormat2;
begin
  FillChar(Format,   SizeOf(TCharFormat),   0);
  Format.cbSize   :=   SizeOf(TCharFormat);
//  SendMessage(RichEdit1.Handle,   EM_GETCHARFORMAT,SCF_ALL,LPARAM(@Format));
//  Format.dwMask   :=   CFM_SIZE   +   CFM_COLOR   +   CFM_BOLD   +   CFM_UNDERLINE + CFM_STRIKEOUT;
  Format.dwMask   :=   CFM_SHADOW + CFM_STRIKEOUT;
//  Format.crTextColor   :=   clRed;
//  Format.yHeight   :=   500;
  Format.dwEffects   :=   CFE_SHADOW + CFE_STRIKEOUT;
//  Format.dwEffects   :=   CFE_BOLD   +   CFE_UNDERLINE;
  SendMessage(RichEdit1.Handle,   EM_SETCHARFORMAT,SCF_ALL,   LPARAM(@Format));
end;

Answer 1

没有看到你隐藏的代码啊！！
CHARFORMAT2 结构中的 CFM_HIDDEN 可以控制显示和隐藏.
先赋值再提交给系统消息，就可以了~
dwMask   ：=CFM_HIDDEN   
dwEffects     ：=CFE_HIDDEN   

Answer 2

谢谢您的回复！对不起，我太粗心了，考错了；
我重新整理一下：
procedure TForm2.Button2Click(Sender: TObject);
var
  Format: TCharFormat2;
begin
  FillChar(Format,   SizeOf(TCharFormat),   0);
  Format.cbSize   :=   SizeOf(TCharFormat);
  Format.dwMask   :=   CFM_HIDDEN    ;
  Format.dwEffects   :=   CFE_HIDDEN    ;
  SendMessage(RichEdit21.Handle,   EM_SETCHARFORMAT,SCF_ALL,   LPARAM(@Format));
end;没有效果呀。

Answer 3

对不起，我太粗心了，考错了； 
我重新整理一下： 
procedure TForm2.Button2Click(Sender: TObject); 
var 
  Format: TCharFormat2; 
begin 
  FillChar(Format,   SizeOf(TCharFormat2),   0); 
  Format.cbSize   :=   SizeOf(TCharFormat2); 
  Format.dwMask   :=   CFM_HIDDEN    ; 
  Format.dwEffects   :=   CFE_HIDDEN    ; 
  SendMessage(RichEdit21.Handle,   EM_SETCHARFORMAT,SCF_ALL,   LPARAM(@Format)); 
end; 有效果!
结贴！