谁有透明的多行文本编辑控件,或者说怎么让Memo变成透明的？

mattus_zhao提供的什么网址呀？怎么也上不去。

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

ZY61能不能说得具体点，如何处理WM_ERASEBKGND消息？
www.torry.net
为什么要透明的？搞不懂
ZY61能不能说得具体点，如何处理WM_ERASEBKGND消息？
我要做一个电子白板，借助于memo做文本框，要让memo不要挡住背后的图形，所以要透明的。
怎么没人愿意帮我？难道没人会这个问题吗？ www.torry.net 这个网站我已经去过了，但没有这样的控件，大家帮我想想办法吧，谢谢！
用FlatMemo不就可以了，网络上有的！
interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
  procedure CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure Tform1.CMEraseBkgnd(var Message:TWMEraseBkgnd);
begin
brush.Style :=bsClear;
Inherited;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Brush.Style :=bsClear;
Form1.BorderStyle :=bsnone;
end;end.
interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
  procedure CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure Tform1.CMEraseBkgnd(var Message:TWMEraseBkgnd);
begin
brush.Style :=bsClear;
Inherited;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Brush.Style :=bsClear;
Form1.BorderStyle :=bsnone;
end;end.
to netlark:flatmemo在哪里可以找到？
to lwk_hlj:
  你说的flatstyle是不是Delphi6里面的，我怎么不熟悉？麻烦你说详细点好吗？我很着急用这个控件，谢谢了！
Flatstyle是可以使用在D6上的一个控件包.
http://www.flatstyle2k.de/frames.php
用Flatstyle控件就可以………………