实现DBEDIT的换行显示(50分)

  • 主题发起人 主题发起人 bh1018
  • 开始时间 开始时间
B

bh1018

Unregistered / Unconfirmed
GUEST, unregistred user!
编写一个自己的dbedit,如何实现和dbmemo一样的自动换行显示,
请高手指点一二。一定要自动换行。
 
放着一个DBMEMO不用干吗要自讨苦吃呢:)

你一定要这么做, 我只好把DBMEMO的源码贴上来喽:)

还是自己去看看吧.
 
TEdit和TMemo其实都是Windows的Edit窗口类。
TMemo比TEdit多个ES_MULTILINE的属性。
我试了半天都没成:(
 
type
TNoUseDBEdit = class(TDBEdit)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TNoUseDBEdit.CreateParams(var Params: TCreateParams);
begin
Inherited;
with Params do
Style := Style or ES_MULTILINE or ES_AUTOHSCROLL;
end;
 
多人接受答案了。
 
后退
顶部