如果改变文本框里光标的方向 正常的情况下,在文本框里面的光标是竖的,我想改变为行的,该怎么办呢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 CreateCaret(edit1.Handle,image1.Picture.Bitmap.Handle,edit1.width,edit1.height);释放用destroycaret; 能说说大概是什么意思吗?怎么还有image1.Picture.Bitmap.Handle呢? 自己到MSDN去找找关于 Caret 的主题吧 unit LabeledEditint;interfaceuses Windows, Messages, SysUtils, Classes, Controls, StdCtrls, ExtCtrls;type TLabeledEditint = class(TLabeledEdit) private { Private declarations } protected { Protected declarations } public { Public declarations } procedure CreateParams(var Params: TCreateParams); override; procedure WMChar(var Message: TWMChar); message WM_CHAR; published { Published declarations } end;procedure Register;implementationprocedure Register;begin RegisterComponents('Samples', [TLabeledEditint]);end;procedure TLabeledEditint.CreateParams(var Params: TCreateParams);begin inherited; Params.Style:=Params.Style or ES_RIGHT;end;procedure TLabeledEditint.WMChar(var Message: TWMChar);begin if (Chr(Message.CharCode)in [#48..#57,#46,#13,#8,#190,#37]) then inherited;end;end. 以上是光标从右显示,只能输入汉字!!是一个继承与TLabeledEdit的简单控件!!! 新手求救 点击这里触发什么事件 如何使用adoquery 进行数据的分类统计? 如何在delphi程序中来恢复已备份的数据. dbexpress 的TSQLquery问题 能否将选中的dbgrid中的一行,拖动或复制到一个memo或listbox中?? Delphi7中的问题 老土啊,五子棋delphi的源码。 请教用delphi怎样写web service的后台程序(50分请教) 我的query缓存更新有问题!updatesql 基本问题:如何类型转换 父类转换成子类? !数据库备份的郁闷问题?
destroycaret;
怎么还有image1.Picture.Bitmap.Handle呢?
Windows, Messages, SysUtils, Classes, Controls, StdCtrls, ExtCtrls;type
TLabeledEditint = class(TLabeledEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams); override;
procedure WMChar(var Message: TWMChar); message WM_CHAR;
published
{ Published declarations }
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TLabeledEditint]);
end;
procedure TLabeledEditint.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style:=Params.Style or ES_RIGHT;
end;
procedure TLabeledEditint.WMChar(var Message: TWMChar);begin
if (Chr(Message.CharCode)in [#48..#57,#46,#13,#8,#190,#37]) then
inherited;
end;
end.
是一个继承与TLabeledEdit的简单控件!!!