很弱的问题,见笑了!(150分)

我想知道如何在一个Richeidt里嵌checkbox.
还有如何改变窗口那三个系统按钮(最小化,恢复,关闭)的颜色?如将其中的一个改为
红色.另外如何完全删除其中某个,如删除恢复按钮,(注意,不是把他设灰色不可用)
希望不使用其他的控件!
谢谢!

1.
procedure TForm1.Button1Click(Sender: TObject);
begin
checkbox1.parent:=richedit1;
checkbox1.left:=5;
checkbox1.top:=20;
end;
2.设置窗口的bordericons
将不要的设为False
改颜色没劲试过

bordersytle=bsnone;
然后放个panel，再放几个按扭，你想怎么改就可以怎么改了

对头.

procedure appendtosystemmenu(form,tform;item:string;itemid:word);
var normalsysmenu,minimizedmenu:hmenu;
aitem:array[0..255]of char;
pitemchar;
begin
normalsysmenu:=getsystemmenu(form.handle,false);
minimizedmenu:=getsystemmenu(application.handle,false);
if item='-' then
begin
appendmenu(normalsysmenu,mf_separator,0,nil);
appendmenu(minimizedmenu,mf_separator,0,nil);
end else
begin
fitem:=strcopy(@aitem,item);
appendmenu(normalsysmenu,mf_string,itemid,pitem);
appendmenu(minimizedmenu,mf_string,itemid,pitem);
end;

使用
appendtosystemmenu(mainform,'-',0);
appendtosystemmenu(mainform,'&r注册',99);
application.onmessage:=mainform.registermsg;

procedure tmainform.registermsg(var msg:tmsg;var handled:boolean);
begin
if msg.message=wm_syscommand then
if msg.wparam=99 then
//自己的代码
你试 一下，抄的，不会

看看……

你这个问题提的可不弱！呵呵，我不会！

学习来了！

看看

拿张板登，做着听课！

ugvanxk的方法是向系统菜单中加项目,非我之所欲!
我是问如何如何改变窗口那三个系统按钮(最小化,恢复,关闭)的颜色

听课，提前。。。。。。。。