各位大师。demo控件里怎么实现从右往左的输入？尽量详细点。我是个新手。请多多赐教。还有用特定字体实现输入特定的输入。怎么

Question

从右往左应该需要专门的控件，TMemo是不行的。

Answer 1

//你可以从TMemo 继承，另外写一个控件即可
//方法简单，重写CreateParams即可，代码如下
//字体稍候解释
unit RightMemo;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TRightMemo = class(TMemo)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
  constructor Create(AOwner:Tcomponent);override;
  procedure CreateParams(var Params: TCreateParams);override;
{ Public declarations }
  published
  property Align;
    property Alignment;
    property Anchors;
    property BiDiMode;
    property BorderStyle;
    property Color;
    property Constraints;
    property Ctl3D;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property Font;
    property HideSelection;
    property ImeMode;
    property ImeName;
    property Lines;
    property MaxLength;
    property OEMConvert;
    property ParentBiDiMode;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ReadOnly;
    property ScrollBars;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Visible;
    property WantReturns;
    property WantTabs;
    property WordWrap;
    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;
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('JStar', [TRightMemo]);
end;{ TRightMemo }constructor TRightMemo.Create(AOwner: Tcomponent);
begin
  inherited;end;procedure TRightMemo.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style:=Params.Style or ES_RIGHT; //关键就是这一行
end;end.