正常的情况下,在文本框里面的光标是竖的,我想改变为行的,该怎么办呢

解决方案 »

  1.   

    CreateCaret(edit1.Handle,image1.Picture.Bitmap.Handle,edit1.width,edit1.height);释放用
    destroycaret;
      

  2.   

    能说说大概是什么意思吗?
    怎么还有image1.Picture.Bitmap.Handle呢?
      

  3.   

    自己到MSDN去找找关于 Caret 的主题吧
      

  4.   

    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.
      

  5.   

    以上是光标从右显示,只能输入汉字!!
    是一个继承与TLabeledEdit的简单控件!!!