کمک در مورد 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