如何做到一个控件有Flat的属性(50分)

喜

喜玛拉雅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-16

• #1

能够有扁平的属性，不知道如何写这代码，如想做一个Edit类型的控件，但需要有Flat 属性
我刚接触写控件，请各位帮帮忙

 

T

TomZhao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-16

• #2

先看flatstyle再写

 

C

chemer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-16

• #3

Ctl3D:=false;

 

S

sky2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-16

• #4

去看FlatStyle的源码吧

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-16

• #5

用Borderstyle=bsNone不也行吗？呵呵....

 

C

crystal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-18

• #6

我自己写过一个，要不要？要的话我找个空间放上去

 

A

asky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-18

• #7

你可以用捕获消息，然后控制边框的宽度。可以达到效果。
FOriginalPageControlWndProc3(Message);
with Message do
if (Msg = TCM_ADJUSTRECT) and (Message.WParam = 0) then
begin
PRect(LParam)^.Top := PRect(LParam)^.Top+2;
PRect(LParam)^.left := PRect(LParam)^.left+1;
//PRect(LParam)^.Right := PRect(LParam)^.Right+1;
InflateRect(PRect(LParam)^, 5, 5);
end;

 

喜

喜玛拉雅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #8

crystal 可以给我一个吗？这几天出差，谢谢！wsxmly@21cn.com

 

C

crystal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #9

已经发了，去年夏天写的东西，现在再看有些地方显得很笨拙，呵呵

 

喜

喜玛拉雅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-25

• #10

多人接受答案了。