如何在memo 或则 richedit 上 添加,使用 radiobutton 和 checkbox 控件
各位高手 ,请帮兄弟一下
如何在memo 或则 richedit 上 添加 radiobutton 和 checkbox 控件.
如果不可以,有没有办法实现,文本编辑的选择功能
谢谢
问题点数:20、回复次数:1Top
1 楼chinasdp()回复于 2005-10-20 09:20:31 得分 20
扩展TMemo
unit MemoEx;
interface
uses
SysUtils, Classes, Controls, StdCtrls;
type
TMemoEx = class(TMemo)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
public constructor Create(AOwner: TComponent); override;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Additional', [TMemoEx]);
end;
{ TMemoEx }
constructor TMemoEx.Create(AOwner: TComponent);
begin
inherited;
// 让该控件可作为容器
ControlStyle:= ControlStyle + [csAcceptsControls];
end;
end.Top




