Скачать: CL | DM;

TEdit.PasswordChar   Найти похожие ветки 

← →
Sarge   (2003-06-06 10:38) [0]

Хочу чтобы пароль в едите мог скрывать и не скрываться. Делаю так
в CheckBox1.onChecked

IF TCheckBox(Sender).Checked then LabeledEdit7.PasswordChar:="*" else LabeledEdit7.PasswordChar:=#0;

Звёздочками скрывается, но обратно не восстанавливается. В чём причина?

---

← →
Sarge   (2003-06-06 10:38) [1]

onChecked загнался я конечно :)
onClick в смысле

---

← →
Sandman25 ©   (2003-06-06 10:50) [2]

У меня восстанавливается (Delphi3).

---

← →
Skier ©   (2003-06-06 10:53) [3]

Для ввода паролей твоя задумка не уместна.
Меняй логику...

---

← →
MSTX   (2003-06-06 10:54) [4]

Лучше обрабатывай событие onMouseUp

---

← →
Sandman25 ©   (2003-06-06 10:58) [5]

>Лучше обрабатывай событие onMouseUp

Нет, лучше использовать OnClick. Иначе нельзя будет выделить/развыделить пробелом.

---

← →
Sarge   (2003-06-06 11:07) [6]

Ребят, я просил помощи, а не обсуждения годится моя задумка или нет. У меня Д6 и не работает.
Вообще сюжет такой: есть админка в которой админ может добавлять пользователей, удалять, менять пароли и т.д. Со звёздочками неудобно, зачем их все помнить. Поэтому я сделал чекбокс, при отметке котрого пароль скрывается. А если например админв в комнате один, он может и открыть звёздочки, введя свой пароль. Так что думаю задумка самое то, вот тока не работает :((
Я и EM_SetPasswordChar пробовал, он тоже не помогает причём ни в ту сторону ни в ту.

---

← →
Sarge   (2003-06-06 11:16) [7]

Всё, вопрос снимается. Спасибо за ответы.

---

← →
Sandman25 ©   (2003-06-06 11:17) [8]

Delphi 6, работает тоже.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask;

type
TForm1 = class(TForm)
Button1: TButton;
MaskEdit1: TMaskEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if MaskEdit1.PasswordChar = #0 then
MaskEdit1.PasswordChar := "*"
else MaskEdit1.PasswordChar := #0;
end;

end.

И все же не нужно показывать пароли, даже админу.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c