客户专线:400-641-8864 | 在线QQ:987837344
首页 易当家培训 鼎捷ERP 易当家ERP 行业方案 实施方法 联系我们  
 

Delphi限制Memo的行数与列宽


unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  public
    MaxCharsPerLine, MaxLines: Integer;
    function MemoLine: Integer;
    function LineLen(r: Integer): Integer;
    function NRows: Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.NRows: Integer;
begin
  with Memo1 do
    Result := 1 + SendMessage(Handle, EM_LINEFROMCHAR, GetTextLen - 1, 0);
end;

function TForm1.LineLen(r: Integer): Integer;
var
  r1, r2: Integer;
begin
  with Memo1 do begin
    r1 := SendMessage(Handle, EM_LINEINDEX, r, 0);
    if (r < NRows - 1) then
      r2 := SendMessage(Handle, EM_LINEINDEX, r + 1, 0) - 2 {-CR/LF}
    else
      r2 := GetTextLen;
  end;
  Result := r2 - r1;
end;

function TForm1.MemoLine: Integer;
begin
  with Memo1 do
    Result := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MaxCharsPerLine := 8;
  MaxLines := 4;
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  with Memo1 do begin
    case Key of
      ' '..#255: if (LineLen(MemoLine) >= MaxCharsPerLine) then
          Key := #0;
      #10, #13: if (NRows >= MaxLines) then
          Key := #0;
      #8: if (SelStart = SendMessage(Handle, EM_LINEINDEX, MemoLine, 0)) then
          Key := #0;
    end;
  end;
end;

end.



猜您喜欢:     易当家ERP简介     E8ERP系统含进销存、生产、财务     软件定制及其流程

ERP,ERP系统,ERP软件
ERP软件 | 深圳网络公司 | 易助ERP | 鼎捷软件 | 神州数码 | 力高ERP |
Copyright© 2008-2016 深圳市易当家软件开发有限公司. All Rights Reserved. 粤ICP备14043283号