做控件时，能否既继承MaskEdit属性，又同时继承DBEdit的属性呢？该如何继承？

Question

UP

Answer 1

以及如何判断光标在当前Edit中第几个位置，且如何控制在一个Edit中第几个不能输入某个字符?

Answer 2

"如何控制在一个Edit中第几个不能输入某个字符?"
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
你可以在这个Edit的OnChange事件中判断。

Answer 3

一个简单的示例，在输入的第三位只能是Aprocedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Trim(Edit1.Text))>2 then
  if copy(Edit1.Text,3,1)='A' then showmessage('input error!');
end;

Answer 4

如何判断光标在当前Edit中第几个位置:  Edit1.SelStart

Answer 5

能否既继承MaskEdit属性，又同时继承DBEdit的属性呢？该如何继承？:不如從 TCustomDBEdit繼承一個子類，再加入EditMask屬性,TMaskDBEdit = class(TTCustomDBEdit)
  private
    procedure SetEditMask(Value: TEditMask);  public
    ;
  published
    property EditMask: TEditMask read FEditMask write SetEditMask;
end;procedure TMaskDBEdit.SetEditMask(Value: TEditMask);
begin
  ......
end;參考TMaskEdit的寫法或從TCustomMaskEdit繼承，加入數據感知功能,比較麻煩