gpt4 book ai didi

forms - 如何在 Delphi XE2 中使 TMaskEdit 进行多行编辑

转载 作者:行者123 更新时间:2023-12-02 08:07:04 26 4
gpt4 key购买 nike

我需要将多行功能添加到我的TMaskEdit中,我可以找到负责此功能的属性。任何帮助将不胜感激。

最佳答案

您可以创建一个 TMaskEdit 多行,添加 ES_MULTILINE通过覆盖 CreateParams 为控件设置样式方法。就像这样

type

TMaskEdit = class(Vcl.Mask.TMaskEdit)
protected
{ Protected declarations }
procedure CreateParams(var Params: TCreateParams); override;
end;

TForm30 = class(TForm)
MaskEdit1: TMaskEdit;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form30: TForm30;

implementation

{$R *.dfm}


procedure TMaskEdit.CreateParams(var Params: TCreateParams);
const Alignments: array[TAlignment] of Longint =
(ES_LEFT, ES_RIGHT, ES_CENTER);
begin
inherited CreateParams(Params);
//Multiline //scrollbars
Params.Style := Params.Style or ES_MULTILINE or WS_HSCROLL or WS_VSCROLL;
end;

procedure TForm30.FormCreate(Sender: TObject);
begin
MaskEdit1.Height:= 250;
MaskEdit1.AutoSize:= False;
end;

关于forms - 如何在 Delphi XE2 中使 TMaskEdit 进行多行编辑,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29684679/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com