• Registered: 2014-12-21
  • Posts: 66

Topic: по паролям

А как правильно написать скрипт для кнопки чтобы при нажатии  ее выскакивало сообщение введите пароль а при не правильном вводе всплывало сообщение неверный пароль? У меня не работает...

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
     if InputBox ('Запрос','Введите пароль','') <> '111' then Cancel := True     
     else MessageDlg('Неверный пароль', mtError, mbOk, 0);
end;

  • Registered: 2014-05-21
  • Posts: 108

Re: по паролям

Попробуйте исправить так:

     if InputBox ('Запрос','Введите пароль','') = '111' then Cancel := True

Вместо <> поставить = .

3 Reply by motorolla (edited by motorolla 2014-12-24 15:26:53)

  • Registered: 2014-11-07
  • Posts: 83

Re: по паролям

я проверял такой пример - работает, а версия какая программы?

var
  Sender: string;


procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
   // запрашивает пароль, пароль: 123, если ввели не верно, действие кнопки отменяется (Cancel := True)
   if InputBox ('Запрос', 'Введите пароль', '') <> '123' then Cancel := True;
end;

begin

end.

событие на онклик

  • Registered: 2014-02-14
  • Posts: 10,294

Re: по паролям

Augsberger
Ваш пример должен работать, возможно вы не правильно создали событие для кнопки OnClick, как это сделать правильно можете прочитать здесь
http://myvisualdatabase.com/help_ru/scr … rview.html

Dmitry.
  • Registered: 2014-12-21
  • Posts: 66

Re: по паролям

Получилось вот так:

procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
     //На действие кнопки УДАЛИТЬ поставлен запрос пароля
     if InputBox ('Запрос', 'Введите пароль', '') = '111' then Cancel:=False
     else begin
     MessageDlg('Неверный пароль', mtError, mbOk, 0);  Cancel:=True; end;

end;


Спасибо....