各位先進大家好: 小弟想問InputBox 是否可以顯示類似編輯盒的密碼效果,例如輸入12345 ,畫面看起來像是"******",因為版面的關係..無法塞得下編輯盒,除非再引用一個Dialog 才可以,所以想請問各位前輩是否有相關經驗,謝謝!! 發表人 - taishyang 於 2004/08/13 14:28:07

terence_lee 您好：    感覺上InputBox(.)似乎沒有可以設定的屬性能做到這樣。 或者您可以自行產生一個類似的Form，並以Edit (PasswordChar='*') 來模擬這個效果。

terence_lee：
InputBox 可以做到應用面看你自己處理，
原Vcl\Source\dialogs.pas 不要動，也不要改
將dialogs.pas copy回你BCB專案檔案下
開啟你的BCB專案目錄下dialogs.pas
找到function InputQuery裡的
Edit := TEdit.Create(Form);
      with Edit do
      begin
        Parent := Form;
        Left := Prompt.Left;
        Top := MulDiv(19, DialogUnits.Y, 8);
        Width := MulDiv(164, DialogUnits.X, 4);
        MaxLength := 255;
        PasswordChar:='*'; //加入本行
        Text := Value;
        SelectAll;
      end;
只要你的這隻同目錄下的dialogs.pas 加入你的project即可
記著你的專案檔案只要
project-> add BCB專案目錄下dialogs.pas
程式裡不要Include dialogs.pas
我執行的結果

可以參考我另一編答覆：
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=53982

Andy Chang

------
Andy Chang

謝謝andychang1690與richtop 兩位先進的回答,小弟獲益良多^_^!