如果让CreateWindowEx创建的RichEdit在WinXP下具有WinXP特有的外观？(150分)

S

smithcouple

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-21

• #1

正在用Delphi做一个小工程，不能使用VCL，窗体中用到了RichEdit20A，我发现用CreateWindowEx创建的文本编辑框：Edit可以自动引用WinXP样式，而RichEdit20A确不能，在加入了.manifest文件之后也还是老样子（3D文本框）。请问需要加什么语句才可以让CreateWindowEx创建的RichEdit在WinXP下具有WinXP特有的外观？

 

X

xiammy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-21

• #2

你控件创建的语句是什么?

 

S

smithcouple

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-21

• #3

rceOutput := CreateWindowEx(WS_EX_CLIENTEDGE, 'RICHEDIT20A', '',<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; WS_CHILD or WS_VISIBLE or WS_TABSTOP or ES_AUTOHSCROLL,<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 112+8, 64+8, 305, 25, hWindow, 0, Inst, nil);

 

J

jfyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-23

• #4

BevelInner = bvNone<br> &nbsp; &nbsp;BevelKind = bkFlat<br> &nbsp; &nbsp;BorderStyle = bsNone<br> &nbsp; &nbsp;BevelOuter = bvLowered<br>把以上属性转成API

 

J

jfyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-23

• #5

Ctl3D 可能'RICHEDIT20A'不支持