如何使编辑框从右边进行录入数据?
首先:
声明一个全局的变量: edt2 : TRightEdit;
其次:
最后:
首先:
type
TRightEdit = class(TEdit)
protected
procedure CreateParams(var Params:TCreateParams);override;
end;
声明一个全局的变量: edt2 : TRightEdit;
其次:
procedure TRightEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style + ES_RIGHT;
end;
最后:
procedure Tfmainform.FormCreate(Sender: TObject);
begin
edt2 := TRightEdit.Create(Self);
with edt2 do
begin
Parent := pnl1;
Text := '0.';
Align := alTop;
Enabled := True;
ReadOnly := False;
Show;
end;
end;
这样我们就实现了一个TEdit控件输入数据从右侧进行录入,就像计算器的编辑框一样的效果。