求能上下居中的Edit,Memo,DBEdit,Combox,DBMemo,或提示怎么改VCL源码？（全文检索不能使用） (50分)

S

scLizongliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #1

如题。

 

W

web_lance

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #2

我也发了一个类似的问题，不过正在讨论中。

 

K

killgates

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-04

• #3

Edit不支持纵向对齐

memo可以这样
var
r : TRect;
begin
r := Rect(10,10,100,100);
SendMessage(Memo1.Handle,EM_SETRECT,0,Integer(@r));
通过设置rect的位置实现。

也可以假装一下，把edit去掉边框放在panel上，通过edit的位置来实现