Показать сообщение отдельно
  #28  
Старый 22.06.2008, 14:11
san-46 san-46 вне форума
Активный
 
Регистрация: 25.04.2008
Сообщения: 383
Репутация: 33
По умолчанию

Так не получится. Надо же ждать пока не введут пароль во второй раз. А в этой процедуре такого не случится.
Поэтому может быть повесить на Edit1 событие OnChage и постоянно (в этом событии, которое будет запускаться при нажатии на любую клавишу) проверять ввод первого пароля.

Код:
procedure TPSWfrm.Edit1Change(Sender : TObject);
begin
  if (Edit1.Text = 'qaz') then
    Edit2.Enabled := true;
end;

//и после ввода нового пароля нажимается кнопка
procedure TPSWfrm.Button2Click(Sender: TObject);
begin
  if Edit2.text <> '' then
    SavePSW(FileName, Edit2.Text);
end;
__________________
Не забывайте делать резервные копии
Ответить с цитированием