引言: 請問各位! 我目前有一個需求, combobox1 maskedit1, 由combobox1選擇一個item後, 會帶下來一個值放在maskedit1中, 舉例 AA123為帶入值, 再加一個 "-" 此時我必須在maskedit1中填入 AA123-, 然後游標必須停留在 AA123-之後 而且, USER 無法往前移動對AA123-做刪除或修正, 請問這段功能 有沒有辦法使用 editmask來達成

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption := IntToStr(TEdit(Sender).SelStart);
  if (TEdit(Sender).SelStart <= 5) then
  begin
    Key := 0;
  end;
end;

引言: 弟的一個簡單想法. 其實使用兩個 tedit 就可以了. Edit1 負責前半段(放combobox選定後設定的值), 設為 readonly, Edit2 讓使用者自行輸入, 看是要用 Edit 或是 MaskEdit 都可以. 輸入完成後, 要取該值就直接用 Edit1.Text Edit2.Text 就可以了. 不用去管是否可以編輯前段的問題.

引言: 請問各位! 我目前有一個需求, combobox1 maskedit1, 由combobox1選擇一個item後, 會帶下來一個值放在maskedit1中, 舉例 AA123為帶入值, 再加一個 "-" 此時我必須在maskedit1中填入 AA123-, 然後游標必須停留在 AA123-之後 而且, USER 無法往前移動對AA123-做刪除或修正, 請問這段功能 有沒有辦法使用 editmask來達成

 
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  s : string ;
  i : integer ;
begin
  s:=ComboBox1.Text '-' ;
  for i:=length(s) downto 1 do
    insert('\',s,i) ;      MaskEdit1.EditMask:=s '9999' ;
  MaskEdit1.SelLength:=0 ;
  MaskEdit1.SelStart:=length(ComboBox1.Text '-') ;    end;

引言: 看看這是不是你要的效果

 
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  s : string ;
  i : integer ;
begin
  s:=ComboBox1.Text+'-' ;
  for i:=length(s) downto 1 do
    insert('\',s,i) ;      MaskEdit1.EditMask:=s+'9999' ;
  MaskEdit1.SelLength:=0 ;
  MaskEdit1.SelStart:=length(ComboBox1.Text+'-') ;    end;

...Aquarius

謝謝! 這個方法我用過, 但有一個問題, editmask如何去辨別 AA123-中的AA是String, 而不是format mask, 因為 如果設定 maskedit1.editmask:= 'AA123-99999', 1.在edit中, AA仍可以被移動到及修正, 因為A代表MASK格式 目前我希望的功能是在 EDIT 欄位中可以顯示

引言:

引言: 看看這是不是你要的效果

 
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  s : string ;
  i : integer ;
begin
  s:=ComboBox1.Text+'-' ;
  for i:=length(s) downto 1 do
    insert('\',s,i) ;      MaskEdit1.EditMask:=s+'9999' ;
  MaskEdit1.SelLength:=0 ;
  MaskEdit1.SelStart:=length(ComboBox1.Text+'-') ;    end;

...Aquarius

謝謝! 這個方法我用過, 但有一個問題, editmask如何去辨別 AA123-中的AA是String, 而不是format mask, 因為 如果設定 maskedit1.editmask:= 'AA123-99999', 1.在edit中, AA仍可以被移動到及修正, 因為A代表MASK格式 目前我希望的功能是在 EDIT 欄位中可以顯示

引言: 重點就在這個迴圈 for i:=length(s) downto 1 do insert('\',s,i) ;