Материал: Мансуров. Основы программирования в среде Lazarus. 2010

6.3 Визуальное программирование в среде Lazarus

____________________________________________________________________

n:= 1;

end;

А в обработчик OnClick кнопки следующий код:

procedure TForm1.Button1Click(Sender: TObject); begin

if passw <> Edit1.Text then begin

Edit1.SetFocus; if n = 1 then begin

ShowMessage('Неправильный пароль!'); inc(n);

end else begin

if n = 3 then begin

ShowMessage('Вам отказано в доступе');

Close();

end else begin

Stroka:= 'Вы ' + IntToStr(n) + ' раза ввели неправиль-

ный пароль';

Stroka:= Stroka + ' После 3-й попытки вам будет отказано в

доступе';

ShowMessage(Stroka);

506

Глава 6 Программирование приложений с графическим интерфейсом

____________________________________________________________________

inc(n);

end

end

end

else

begin

ShowMessage('Вы успешно авторизовались!');

Close();

end;

end;

В разделе описания переменных модуля, добавьте следующие описания переменных:

var

Form1: TForm1;

passw: string[4];

Stroka: string;

n: integer;

Обратите внимание – чтобы введенные нами переменные были доступны в обработчиках, мы поместили их объявления в разделе interface.

Запустите приложение и поэкспериментируйте с вводом различных паро-

лей. Правильный пароль "1234".

В программе мы использовали функцию IntToStr(n), которая перево-

дит целое число в ее строковое представление и стандартную процедуру

ShowMessage, для вывода сообщения с кнопкой ОК. Единственным парамет-

ром этой процедуры является строка символов.

Можно ли улучшить программу?

Многие пользователи привыкли завершать ввод в однострочном редакторе

507

6.3 Визуальное программирование в среде Lazarus

____________________________________________________________________

нажатием клавиши Enter. Для того чтобы реализовать эту возможность про-

сто установите у кнопки свойство Default равным True в инспекторе объектов. Однако учтите, если у вас в программе несколько кнопок, то сработа-

ет та кнопка, которая имеет в этот момент фокус ввода. Отслеживать фокус при большом числе компонентов становится делом довольно обременительным.

Выход заключается в написании обработчика в компоненте Edit1 на событие

OnKeyPress. В этом обработчике имеется параметр Key, которому система передает код нажатой клавиши. Код клавиши Enter равен #13 (см. табл. 3.4. в

разделе 3.3.1). Отсюда обработчик будет выглядеть следующим образом:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);

begin

if Key <> #13 then exit;

if passw <> Edit1.Text then begin

Edit1.SetFocus; if n = 1 then begin

ShowMessage('Неправильный пароль!'); inc(n);

end else begin

if n = 3 then begin

ShowMessage('Вам отказано в доступе');

Close();

end

508

Глава 6 Программирование приложений с графическим интерфейсом

____________________________________________________________________

else begin

Stroka:= 'Вы ' + IntToStr(n)+ ' раза ввели неправильный

пароль';

Stroka:= Stroka + ' После 3-й попытки вам будет отказано в

доступе';

ShowMessage(Stroka);

inc(n); end

end end else begin

ShowMessage('Вы успешно авторизовались!');

Close();

end;

end;

От обработчика Button1Click код отличается лишь одним первым оператором

if Key <> #13 then exit;

К сожалению, здесь имеет место почти полное дублирование кода. Чтобы избежать этого создадим процедуру и в обработчиках будем просто ее вызы-

вать. Окончательно программа будет иметь вид:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

509

6.3 Визуальное программирование в среде Lazarus

____________________________________________________________________

Classes, SysUtils, FileUtil, LResources, Forms,

Controls, Graphics, Dialogs,

StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Label1: TLabel;

procedure Button1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: char);

procedure FormCreate(Sender: TObject); procedure avtorization;

private

{private declarations } public

{public declarations } end;

var

Form1: TForm1; passw: string[4]; Stroka: string; n: integer;

implementation { TForm1 }

510