کمک در مورد inputbox

[seaman202008]

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

[ealvandi]

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


موفق باشی.

[SYNDROME]

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

[dkhatibi]

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;

[seaman202008]

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

[seaman202008]

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

[sun]

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

[sun]

اینه identifier cxpected but < found