引言: 請問各位兩個問題! 1.有一個TMaskEdit 的 EditMask 為 '>AAAA:999;1' 與 '>AAAA.A999;1' 與 '>999:AA.9;1' 三種, 分別有7,8,6三個長度, 在輸入時使用者可以自由切換三種MASK, 如果我想要判斷使用者是否在 TMaskEdit中已經輸入滿了, 然後就跳離去做其他事, 有沒有辦法直接用 MaskEdit內提供的function來解決, 我的意思是說如果我用一個陣列定義三 種格式的長度, 然後以 length(MaskEdit1.Text)=Masklen[x] 可以做到, 如果 不用任何變數的話呢>?

procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
  try
    MaskEdit1.ValidateEdit;
    if MaskEdit1.SelStart = MaskEdit1.MaxLength then
      Form1.ActiveControl := Form1.FindNextControl(Form1.ActiveControl,true,true,true);
  except
  end;
end;

  if Length(Trim(MaskEdit1.Text)) = 9 then
    ...
  else
    ...
  

  if keyno=#13 then 
  try
     MaskEdit1.ValidateEdit;
  ....

nLeng:= Length(trim(copy(eChass.Text,1,eChass.SelStart)) 
        trim(copy(eChass.Text,eChass.SelStart 1,eChass.MaxLength)));
if (nLeng=eChass.MaxLength) then ...    

  try
    MaskEdit1.ValidateEdit;
    if (MaskEdit1.SelStart = MaskEdit1.MaxLength) and (pos(' ', MaskEdit1.Text) = 0) then
      Form1.ActiveControl := Form1.FindNextControl(Form1.ActiveControl,true,true,true);
  except
  end;

引言: 我上面的程序是不會觸發 錯誤 Message Box 的，因為用 Try Except 攔截了錯誤。當然，你用 Delphi 來 Run 時是會出現錯誤，但這只是在 Delphi IDE 中而不是使用者介面中，當你獨立的來執行程式時是不會出現 Exception 的，不用加 if key = #13。 唯一我想到的問題，就是如你所說當使用者空了一格而輸到最後一個字完後(仍不會出現 Exception 及 不會跳到下一 Control),回到空格補入資料，那時資料雖然正確但由於不是在最後一個位元所以不會自動跳到下一 Control。不過使用者仍可以用 Tab 或 Mouse 來跳到下一個 Control 的。

1. maskedit1.onchange
  try
     maskedit1.validateedit;
  except
  end;
真的會觸發 maskedit1.validateerror
因為我查過 mask.pas 中, validateedit的function, 
    if not Validate(Str, Pos) then
    begin
      if not (csDesigning in ComponentState) then
      begin
        Include(FMaskState, msReEnter);
        SetFocus;
      end;
      SetCursor(Pos);
      ValidateError;這裡呼叫了
    end;
所以雖然用 except來攔截, 但在執行if not Validate(Str, Pos) then
時, 並未觸發exception 的原則, 所以會出現 msssagebox, 我實測的確也出現, 另外因為我不希望出現的是英文訊息, (使用者level很低, 看不懂), 所以
我自己弄了一個 TxMaskEdit元件, 繼承TMaskEdit, 所以其實之前使用都是
以TxMaskEdit在做, 如下    unit xMaskEdit;    interface    uses
    Dialogs, Classes, Mask;    {TxMaskEdit}
type
    TxMaskEdit = class(TMaskEdit)
    protected
       procedure ValidateError; override;
    public
       maskErrorShowed: boolean;
       constructor Create(AOwner: TComponent); override;
       procedure ResetKey;
    published
    end;    procedure TxMaskEdit.ValidateError;
begin
     if not maskErrorShowed then begin
        MessageDlg(pChar('輸入的資料不齊全或不符合格式!' #13 
                   '請補足資料 或 按[Esc]鍵 取消'),mtError,
                    [mbCancel],0);
     end;
     // 這個變數原先目的是希望只會秀一次錯誤, 但目前似乎沒有用
     maskErrorShowed:= True;
end;    procedure TxMaskEdit.ResetKey;
begin
     maskErrorShowed:= False;
end;    procedure Register;
begin
     RegisterComponents('Additional', [TxMaskEdit]);
end;    end.    我改寫原來的ValidateError procedure, 但問題來了, 我現在還查不到原因
是發生ValidateError時, 這個MessageBox會顯示兩次, 一次是
onchange時, validedateEdit所觸發的, 另一次???, 問題可能出在我的
onKeydown, 或 onKeypress, 但我現在無法找到真正原因    以上是第一點

procedure TForm_Cust.eData1Change(Sender: TObject);
begin
     if nowKeyDown=#13 then
     try
        eData1.ValidateEdit;
     except
     end;
end;    procedure TForm_Cust.eData1KeyPress(Sender: TObject; var Key: Char);
begin
     nowKeyDown:= Key;
     nowKeyLeng:= eData1.SelStart;
end;    procedure TForm_Cust.eData1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
         var nowkey: integer;
             nLeng: integer;
begin
     nowkey:= -1;
     // Press F1~F10 可以線上變更 eData1.EditMask格式
     if      Key=VK_F1  then nowkey:= 0
     else if Key=VK_F2  then nowkey:= 1
     else if Key=VK_F3  then nowkey:= 2
     else if Key=VK_F4  then nowkey:= 3
     else if Key=VK_F5  then nowkey:= 4
     else if Key=VK_F6  then nowkey:= 5
     else if Key=VK_F7  then nowkey:= 6
     else if Key=VK_F8  then nowkey:= 7
     else if Key=VK_F9  then nowkey:= 8
     else if Key=VK_F10 then nowkey:= 9
     else if Key=VK_ESCAPE then eQChass.ResetKey
     else if key=VK_RETURN then begin
        nLeng:= Length(trim(copyeData1.Text,1,eData1.SelStart)) 
          trim(copy(eData1.Text,eData1.SelStart 1,eData1.MaxLength)));
          if (nLeng<>eData1.MaxLength) then eData1.ResetKey;
因為我有使用DosMove, 所以, 當上述長度如果相等表示輸入成功, 
所以會直接到 onExit Event上去做我要做的事, 我就不另寫出onexit部份了
     end;         if (nowkey>=0) and (nowkey<=9) then begin
        U_Var.MaskPos:= nowkey;
        eData1.EditMask:= U_Var.MaskStr[U_Var.MaskPos];
        eData1.Update;
        eData1.SetFocus;
     end;
end;    

  try
    MaskEdit1.ValidateEdit;
    if (MaskEdit1.SelStart = MaskEdit1.MaxLength) and (pos(' ', MaskEdit1.Text) = 0) then
      Form1.ActiveControl := Form1.FindNextControl(Form1.ActiveControl,true,true,true);
  except
  end;

{TxMaskEdit}
type
    EMaskError = class(Exception);
type
    TxMaskEdit = class(TMaskEdit)
    protected
       procedure ValidateError; override;
    public
       constructor Create(AOwner: TComponent); override;
       procedure ResetKey;
    published
    end;    procedure Register;    implementation    constructor TxMaskEdit.Create(AOwner: TComponent);
begin
     inherited Create(AOwner);
end;    procedure TxMaskEdit.ValidateError;
begin
     raise EMaskError.Create('輸入的資料不齊全或不符合格式!' #13 
                             '請補足資料 或 按[Esc]鍵 取消');
end;    

procedure TForm_Cust.eData1Change(Sender: TObject);
begin
     try
        eData1.ValidateEdit;
     except
     end;
end;    procedure TForm_Cust.eData1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
         var nowkey: integer;
             nLeng: integer;
begin
     nowkey:= -1;
     if      Key=VK_F1  then nowkey:= 0
     else if Key=VK_F2  then nowkey:= 1
     else if Key=VK_F3  then nowkey:= 2
     else if Key=VK_F4  then nowkey:= 3
     else if Key=VK_F5  then nowkey:= 4
     else if Key=VK_F6  then nowkey:= 5
     else if Key=VK_F7  then nowkey:= 6
     else if Key=VK_F8  then nowkey:= 7
     else if Key=VK_F9  then nowkey:= 8
     else if Key=VK_F10 then nowkey:= 9
     else if key=VK_RETURN then begin
          nLeng:= Length(trim(copy(eData1.Text,1,eData1.SelStart)) 
                         trim(copy(eData1.Text,eData1.SelStart 1,eData1.MaxLength)));
          if (nLeng=eData1.MaxLength) then
          begin
              ......
          end;
     end;         if (nowkey>=0) and (nowkey<=9) then begin
        U_Var.MaskPos:= nowkey;
        eData1.EditMask:= U_Var.MaskStr[U_Var.MaskPos];
        eData1.Update;
        eData1.SetFocus;
     end;
end;    procedure TForm_Cust.eData1KeyPress(Sender: TObject; var Key: Char);
begin
     nowKeyLeng:= eData1.SelStart;
end;    // 以下是 xMaskEdit 部份
unit xMaskEdit;    interface    uses
    Dialogs, Classes, Mask, SysUtils;    {TxMaskEdit}
type
    EMaskError = class(Exception);
type
    TxMaskEdit = class(TMaskEdit)
    private
       errMsg: string;
    protected
       procedure ValidateError; override;
    public
       constructor Create(AOwner: TComponent); override;
    published
    end;    procedure Register;    implementation    constructor TxMaskEdit.Create(AOwner: TComponent);
begin
     inherited Create(AOwner);
     errMsg:= '輸入的資料不齊全或不符合格式!' #13 
              '請補足資料 或 按[Esc]鍵 取消'
end;    procedure TxMaskEdit.ValidateError;
begin
     raise EMaskError.Create(errMsg);
end;    procedure Register;
begin
     RegisterComponents('Additional', [TxMaskEdit]);
end;    end.