Показать сообщение отдельно
  (#1 (permalink)) Старый
vfrim vfrim вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 20.05.2020
По умолчанию Защита формы паролем - 20.05.2020, 16:44

Здравствуйте. Такой тема. Не реагируют кнопки "OK" и "Cansel" на форме программы, когда компилируешь. Ошибок никаких нет. Не понимаю в чем прикол. Программирую на Delphi 10.

delphi Код:
procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
const pass='12345678'; //пароль
begin
if Password.Text = pass then CanClose:=true
else
//очистим поле с неправильным паролем
Password.Text:= '';
// выводим сообщение
Application.MessageBox('Неверный пароль','Ошибка !!!',MB_OK or MB_ICONINFORMATION);

end;
Ответить с цитированием
Ads