我要写一类似TEDIT功能的控件 要求至少可以显示输入的文本、响应Backspace键删除最后一个字符但只能从TCustomControl继承 思路应该是什么样的 显示输入的文本是得用画出来吗?我看TCustomControl里只有一些canvas函数
解决方案 »
- spcomm串口编程-数据发送出去了,但是接受不到。求助!!
- 在字符串中寻找字符函数
- ¥¥##%%**请高手和专家进来,关于webbrowser的一个问题!(高分相送,在线等!)··##%%**¥¥
- 如何使用fastreport打印stringgrid时,强制换页(up有分)?
- 各位老兄,能不能给俺介绍一个打包程序能把Delphi的第三方控件也打包进去以及在哪个网站下载到这种打包程序。各位老兄,能不能给俺介绍一
- 请翻译成delphi语句
- 各位老哥请帮忙
- zswang(伴水)(被黑中) 请进,老问题,你的答案不行阿!一个被调用窗体怎么在create过程中就关掉它呢?同时又如何在create前传入参数给它?
- 学习delphi网络编程的好书?
- 怎么把一个表中的一个字段中的最大值付给一个变量
- 如何得到DOS窗口的dos prompt?
- 如何让开机就运行应用程序,屏蔽桌面
const
Passwords: array[Boolean] of DWORD = (0, ES_PASSWORD);
ReadOnlys: array[Boolean] of DWORD = (0, ES_READONLY);
CharCases: array[TEditCharCase] of DWORD = (0, ES_UPPERCASE, ES_LOWERCASE);
HideSelections: array[Boolean] of DWORD = (ES_NOHIDESEL, 0);
OEMConverts: array[Boolean] of DWORD = (0, ES_OEMCONVERT);
begin
inherited CreateParams(Params);
CreateSubClass(Params, 'EDIT');
with Params do
begin
Style := Style or (ES_AUTOHSCROLL or ES_AUTOVSCROLL) or
BorderStyles[FBorderStyle] or Passwords[FPasswordChar <> #0] or
ReadOnlys[FReadOnly] or CharCases[FCharCase] or
HideSelections[FHideSelection] or OEMConverts[FOEMConvert];
if NewStyleControls and Ctl3D and (FBorderStyle = bsSingle) then
begin
Style := Style and not WS_BORDER;
ExStyle := ExStyle or WS_EX_CLIENTEDGE;
end;
end;
end;
TCustomEdit是父类是TWinControl.
从TWinControl变为TcustomEdit是这样改变的.TCustomContro的父类也是TWinControl.你找源代码"copy"就行了.