کمک در مورد inputbox

سلام
آیا می شود اطلاعاتی که در iunput box وارد می شود به صورت ستاره باشند ؟
آیا مشابه دیگری برای این کار هست ؟

بله میشه (کتاب راهنمای برنامه نویسان دلفی انتشارات ناقوس - صفحه 49)
اگه دنبال همچین کدهای ویژه ای میگردی کتاب راهنمای برنامه نویسان دلفی انتشارات ناقوس رو تهیه کن.


موفق باشی.

با سلام
از PasswordChar می توانی استفاده کنی.
قبل از ایجاد تاپیک جستجو کن زودتر به جواب می رسی.(تاپیکهای مشابه زیاده)

const

  InputBoxMessage = WM_USER + 200;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;

  public

  end;



var

  Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);

var

  hInputForm, hEdit, hButton: HWND;

begin

  hInputForm := Screen.Forms[0].Handle;

  if (hInputForm <> 0) then

  begin

    hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);

    {

      // Change button text:

      hButton := FindWindowEx(hInputForm, 0, 'TButton', nil);

      SendMessage(hButton, WM_SETTEXT, 0, Integer(PChar('Cancel')));

    }

    SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);

  end;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

  InputString: string;

begin

  PostMessage(Handle, InputBoxMessage, 0, 0);

  InputString := InputBox('Input Box', 'Please Enter a Password', '');

end;

سلام
در یک application جدید انجام می شود ولی در یک پروزه اصلا پروسیجر فراخوانی و کامپایل نمی شود؟؟؟؟؟؟؟؟؟

سلام
مشکل حل شد . کافی بود عبارت message InputBoxMessage; در انتهای تعریف پروسیجر در public بیاید

سلام
این خط error میده span class="highlight">InputString</span>: string>;

اینه identifier cxpected but < found