پسورد به صورت دایره

[newdesign]

چه طور ممکنه وقتی edit رو برا وارد کردن پسورد استفاده می کنیم به صورت دایره ای نشون بده؟ستاره رو خودم میدونما :چشمک:

[اَرژنگ]

برایه دایره تو پر ،
PasswordChar=#7
برایه دایره تو خالی ،
PasswordChar=#8
استفاده میکنم، ولی سیستم من به زبان انگلیسی هست
ممکنه عدداش فرق کنه، برایه اینک تماک کارکترها را ببینید این کد را امتحان کنید:
Memo1, Button1 را به فرم اضافه کنید



procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to 200 do
Memo1.Lines.Add( IntToStr(i)+'='+chr(i) )
end;

[newdesign]

نشد.سیستم من فارسیه #7 و #8 جواب نداد . این 200 تا هم هیچکدوم دایره نبودن .
edit یاهو مسنجر چه جوریه که بدون نیاز به فارسی یا انگلیسی بودن سیستم پسورد رو دایره ای می ندازه ؟

[اَرژنگ]

شاید باید یکمی فونتهایه مختلف را امتحان کنید.
من شکلهایی را که میبینم ضمیمه کردم.

[Mahdi-563]

سلام

#147 جواب میده

[newdesign]

نه اونم کاما میندازه . جواب نداد

[Mahdi-563]

ببین از Character Map استفاده کن خیلی عالی (مال ویندوز)

[اَرژنگ]

این خط زیری را کپی کنید
••••••••••••••••� �••••••••••••••••� ��•••
اگر این کار کرد لطفاً اطّلاع بدید.

[newdesign]

کجا کپی کنم ؟ تو passchar? جواب نداد

[Mahdi-563]

به نظر من از کامپانت استفاده کن

[Mahdi-563]

چون مدونم میگین کجاست و ......

بفرمایین:

[Mahdi-563]

unit PasswordEdit;

interface

uses
Classes, Controls, StdCtrls,
Windows;

type
TPasswordEdit = class(TCustomEdit)
protected
procedure CreateParams(var Params: TCreateParams); override;
published
property AutoSelect;
property AutoSize;
property BorderStyle;
property CharCase;
property Color;
property Ctl3D;
property DragCursor;
property DragMode;
property Enabled;
property Font;
property HideSelection;
property MaxLength;
property OEMConvert;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabOrder;
property TabStop;
property Text;
property Visible;
property OnChange;
property OnClick;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnStartDrag;
end;

procedure Register;

implementation

procedure TPasswordEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or ES_PASSWORD;
end;

procedure Register;
begin
RegisterComponents('Aria', [TPasswordEdit]);
end;

end.

[Mahdi-563]

تقدیم به تمامی جیگر ها برین حال کنین و مارا دعا.

مهدى

[newdesign]

دستتون درد نکنه آقا مهدی . من مسافرت بودم . امروز دیدم پستتون را . بازم ازتون متشکرم .

[Mahdi-563]

سلام newdesign

قربونت خواهش می کنم قابل شما را نداشت

با وفا ....

[Developer Programmer]

با تشکر از مهدی جون؛
اگه اشتباه نکنم PostMessage در MSDN ، پارامترهایی برای اینکار داشت.
--
مهدی جان لطفا کدت رو داخل تگ Code قرار بده
--

[Bahram0110]

از کاراکتر مپ کاراکتر مربوطه (●) راکپی و به جای کاراکترهای پسورد بزار

[دنی کوئیل]

کاراکتر مپ کجاست ؟

[MiRHaDi]

سلام
همین کاراکتر● :
را کپی کن و استفاده کن
بای

[دنی کوئیل]

من وقتی ● این کاراکتر ارا کپی می کنم در PasswordChar کنترل Edit یه علامت سوال میزنه ?

[MiRHaDi]

سلام
فونتش رو Tahoma کن ! درست میشه
بای

[دنی کوئیل]

فونت کادر متن را tahoma کردم اما بازم ؟ زد .

[MiRHaDi]

سلام
ادیت باکست رو پاک کن !
یکی دیگه بذار ! بعد تاهوما کن درست میشه
بای

[دنی کوئیل]

100 بار این کار را کردم نشد

جناب میرهادی لطف کن پروژش را آپلود کن

ممنون میشویم همه ما