一个可以靠右显示的简单Edit控件

原创 2002年01月01日 14:32:00

unit REdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TCustomREdit = class(TCustomEdit)
  private
    { Private declarations }
    FAlignment:TAlignment;
    procedure SetAlignment(Value: TAlignment);
  protected
    { Protected declarations }
    property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;

  TREdit = class(TCustomREdit)
  published
    { Published declarations }
    property Alignment;
    property Anchors;
    property AutoSelect;
    property AutoSize;
    property BiDiMode;
    property BorderStyle;
    property CharCase;
    property Color;
    property Constraints;
    property Ctl3D;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property Font;
    property HideSelection;
    property ImeMode;
    property ImeName;
    property MaxLength;
    property OEMConvert;
    property ParentBiDiMode;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PasswordChar;
    property PopupMenu;
    property ReadOnly;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Text;
    property Visible;
    property OnChange;
    property OnClick;
    property OnContextPopup;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDock;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnStartDock;
    property OnStartDrag;
  end;

procedure Register;

implementation

procedure TCustomREdit.CreateParams(var Params: TCreateParams);
const
  Alignments: array[Boolean, TAlignment] of DWORD =
    ((ES_LEFT, ES_RIGHT, ES_CENTER),(ES_RIGHT, ES_LEFT, ES_CENTER));
begin
  inherited CreateParams(Params);
  with Params do
  begin
    Style := Style or Alignments[UseRightToLeftAlignment, FAlignment];
  end;
end;

procedure TCustomRedit.SetAlignment(Value:TAlignment);
begin
  if FAlignment <> Value then
  begin
    FAlignment := Value;
    RecreateWnd;
  end;
end;

procedure Register;
begin
  RegisterComponents('Samples', [TREdit]);
end;

end.

上述只是给初学Delphi控件制作者一点参考,当然不入方家法眼。不足之处,敬请指正。

c#解决statusStrip控件上的项目不能靠右对齐的问题

在c#中用到了状态栏控件StatusStrip,但当我想把StatusStrip上某个StatusLabel靠右对齐时出了问题。 按照MSDN中的办法,是设置ToolStripStatusLab...
  • zcyy1211
  • zcyy1211
  • 2013年04月10日 08:12
  • 1098

edit control显示数值

void CMFC_HoughDlg::OnBnClickedHoughline() { // TODO: 在此添加控件通知处理程序代码 static int countnum=0; char...
  • xiaobinhan
  • xiaobinhan
  • 2018年01月08日 09:23
  • 45

MFC中edit控件中同一程序中对话框间的传值与显示方法

我用实例来说,首先在VC6.0中建立一个基于对话框的项目。然后在这个作为接受显示的对话框窗口中设置两个一个Edit控件,把这个拥有Edit控件的对话框取名为EditDlg,然后在用PreTransla...
  • u013895095
  • u013895095
  • 2015年08月21日 20:44
  • 1698

MFC EDIT控件自动显示垂直滚动条

首先设置EDIT控件的属性,如下:注意:Horizontal scroll 和 Auto HScroll 不要选择。 在OnInitDialog()函数中处理://获取EDIT可以显示的行数 TE...
  • zs10hz
  • zs10hz
  • 2015年12月24日 12:39
  • 1226

VC中edit控件使用

SetSel(start,end)作用: 定制EDIT的所选择内容.间接地可以用于定位光标位置. 使用例子: EXP1:设置光标 CEdit*      pEdit=(CEdit*)GetDl...
  • fc841105
  • fc841105
  • 2011年08月19日 15:59
  • 9357

MFC edit控件实现控制台式滚动输出

EDIT控件实现多行滚动输出
  • zizi7
  • zizi7
  • 2017年02月15日 14:51
  • 557

线性布局控制控件居右显示

用到的属性: android:layout_width=”0dp” android:layout_weight=”1”
  • xiyangyang8110
  • xiyangyang8110
  • 2016年10月01日 21:17
  • 1027

MFC->Edit Control控件基本使用

介绍使用Edit Control控件进行基本的输入和显示,其他功能有待补充。使用MFC应用程序开发流程: 1.创建基于对话框的应用程序框架(修改对话框属性) 2.给对话框添加控件(设置唯一ID) 3....
  • xAston
  • xAston
  • 2016年03月16日 00:32
  • 3943

设置编辑框(edit)的字体

sample: BOOL    CDialogQQNumber::OnInitDialog(){         CFont* font = new CFont;           font->C...
  • linkaituo
  • linkaituo
  • 2010年10月26日 09:45
  • 727

mfc将显示在edit control控件中的内容输出到文本

CFile m_File; CString FileName; CString strTemp; CEdit *p_edit; int i = 0; int j = 0; int il...
  • kycle
  • kycle
  • 2017年12月04日 11:05
  • 47
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个可以靠右显示的简单Edit控件
举报原因:
原因补充:

(最多只允许输入30个字)