TEdit类的paint部分在哪里实现的？！高手请进！！(200分)

A

aorgel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-12

• #1

[blue]本人想做一个编辑控件，但格式、排版方式与tedit类完全不同，从左到右竖写
，跟踪tedit类的delphi源码不知它的paint方法在哪里实现的（也就是文字的输出）？Twincontrol有对WM-paint消息
的处理方法可与edit无关，哪位高手能告诉我：edit控件中输入文字时的delphi处理过程
或原理比如：键盘输入A时-》edit捕获keypress事件-》Twincontrol用
procedure TWinControl.KeyPress(var Key: Char);
begin
if Assigned(FOnKeyPress) then FOnKeyPress(Self, Key);
end;
过程传递消息-》最终对edit的paint在哪里呢？[/blue]

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-12

• #2

从左到右竖写的Tedit控件已经有人写了！
去找来看看吧！

 

A

aorgel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-12

• #3

[blue]在哪里能找到？？？[/blue]

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-12

• #4

不可能找到,TEdit是Windows标准控件,并重绘由Windows自动完成.

 

A

aorgel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #5

[blue]难道没有别的办法？[/blue]

 

J

Jhdandcl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #6

有!
重新写TCustomEdit,原来是TCustomEdit 继承 TWinControl ,
改成继承自TWinCustomControl,再重载Paint 方法.
TCustomEdit=TWinControl 改成TCustomEdit = TWinCustomControl,
其实大部分代码可直接COPY..具体就看你的功力了..

 

W

westboy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #7

请参考
http://211.101.4.25/delphibbs/dispq.asp?lid=331562

 

B

billy_yuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #8

在你自己所写的控件写上去不就行了么！
privte
proccedure Paint() ;override ;
begin
inherited ;
//你的代码
end

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-20

• #9

接受答案了.