![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 17.12.2006
Сообщений: 4
|
![]()
unit Unit4;
interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons; type TPasswordDlg = class(TForm) Label1: TLabel; Password: TEdit; OKBtn: TButton; CancelBtn: TButton; procedure PasswordChange(Sender: TObject); procedure FormCreate(Sender: TObject); procedure PasswordKeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var PasswordDlg: TPasswordDlg; Const sPassword='732233'; implementation {$R *.dfm} procedure TPasswordDlg.FormCreate(Sender: TObject); begin OKBtn.Enabled:=False; end; procedure proverka; //var Password: TEdit; begin If Password.Text<>sPassword then {else} Application.Terminate; PasswordDlg.Close; end; procedure TPasswordDlg.PasswordChange(Sender: TObject); begin If Length(Password.Text)=0 then OKBtn.Enabled:=False else OKBtn.Enabled:=true; end; procedure TPasswordDlg.PasswordKeyPress(Sende r: TObject; var Key: Char); begin case Key of '0'..'9', 'a'..'z', 'A'..'Z', #8, #95: ; #13: proverka; else Key:=Chr(0); end; end; end.
Я не программист, а только учусь
![]() |
![]() |
![]() |
![]() |
#2 | |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
![]() Цитата:
насчет Key не знаю, вроде все правильно
Берегите друг друга!
|
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 17.12.2006
Сообщений: 4
|
![]()
не объявлена пассворд текст? sPassword объявлена как константа
Я не программист, а только учусь
![]() |
![]() |
![]() |
![]() |
#4 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
![]()
1) если Edit password есть на форме, ошибки быть не должно.
2) значение константы нельзя менять. лудше выложите весь проект (исходники) в архиве , посмотрим
Берегите друг друга!
|
![]() |
![]() |
![]() |
#5 | |
Форумчанин
Регистрация: 20.12.2006
Сообщений: 135
|
![]()
проверять нажатие клавиш лучше так
if not (Key in ['0'..'9',#27,#8]) then Key := #0; думаю побыстрее работать будет...а вообще для этого есть TMaskEdit вот так ещё можно сделать...и не заморачиваться с фильтрацией клавиш Цитата:
writeln('Hello Dude!!!');
|
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите! В АССЕМБЛЕРЕ MOV AH,1AH Что значит 1AH? | veter_s_morya | Фриланс | 1 | 16.06.2008 16:03 |
объясните что значит 3й параметр в выражении | MadBeef | Помощь студентам | 1 | 21.05.2008 16:21 |
Подскажите, как пользоваться Password Dialog в Delphi | Grigoriy7 | Помощь студентам | 2 | 01.10.2007 09:19 |