Блокировка одного пункта меню в приложении

@Den955 · Регистрация: 15.08.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте
При вводе логина User должен блокироваться 1 пункт меню (Безопасность), а при вводе логина Admin все пункты меню доступны. Но при любом вводе пункт меню безопасность блокируется. Здесь пункт описан как N16.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm10.ButtonEnterClick(Sender: TObject);
var SaveTxt:TStringList;
    iterIntCount:integer;
    LogAndPass:string;
 
begin
SaveTxt:=TStringList.Create;
SaveTxt.LoadFromFile(ExtractFilePath(Application.ExeName)+'RegEdit.txt');
LogAndPass:= EditLogin.Text+' '+EditPass.Text;
for iterIntCount:=0 to SaveTxt.Count -1 do
begin
if LogAndPass = SaveTxt[iterIntCount] then
begin
Label3.Caption:='Вход подтвержден!';
Form10.Hide;
Form1.Show;
If (EditLogin.Text='Admin') then Form1.N16.enabled:=True
else Form1.N16.enabled:=False;
Form1.Enabled:=True;
Form10.EditLogin.Clear;
Form10.EditPass.Clear;
end
else
Label3.Caption:='Вы ввели неверный логин и пароль! Проверьте правильность написания! Либо зарегистрируйтесь!';
Form10.EditLogin.Clear;
Form10.EditPass.Clear;
end;
end;

@krapotkin · 23.04.2015, 10:24

1. обращение к переменной Form10 внутри метода класса TForm10 - грубая ошибка
2. именуйте компоненты в соответствии с их значением. Вместо N16 вполне бы подошло miSecurity
3. на самом деле, и использование здесь ссылки на Form1 тоже крайне неверно. Правильно - вызывать эту форму в модальном режиме из Form1 и при возврате устанавливать нужные значения в Form1. Но переписывать всю программу за вас мне лень

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm10.ButtonEnterClick(Sender: TObject);
var SaveTxt:TStringList;
    iterIntCount:integer;
    LogAndPass:string;
 
begin
  SaveTxt:=TStringList.Create;
  try
  SaveTxt.LoadFromFile(ExtractFilePath(Application.ExeName)+'RegEdit.txt');
  LogAndPass:= EditLogin.Text+' '+EditPass.Text;
  for iterIntCount:=0 to SaveTxt.Count -1 do
  begin
    if LogAndPass = SaveTxt[iterIntCount] then
    begin
      Label3.Caption:='Вход подтвержден!';
      Hide;
      EditLogin.Clear;
      EditPass.Clear;
      Form1.Show;
      Form1.N16.enabled:=(EditLogin.Text='Admin');
      Form1.Enabled:=True;
      break;
    end
    else
    begin
      Label3.Caption:='Вы ввели неверный логин и пароль! Проверьте правильность написания, либо зарегистрируйтесь.';
    end;
  end;
  finally
    SaveTxt.free;
  end;
end;

DenNik · 23.04.2015, 23:00

Сообщение от krapotkin

обращение к переменной Form10 внутри метода класса TForm10 - грубая ошибка

это не грубая ошибка. компилятор даже хинт не показывает. это признак непроффесионализма и не знания ООП

@krapotkin · 24.04.2015, 00:13

я и говорю, грубая ошибка )

@northener · 24.04.2015, 01:20

Сообщение от DenNik

это не грубая ошибка. компилятор даже хинт не показывает. это признак непроффесионализма и не знания ООП

krapotkin, прав. Это не грубая, а очень грубая ошибка! Но вполне естественная для учеников кулинарных техникумов.

@krapotkin · 24.04.2015, 01:34

northener,
спасибо, товарищ))

@northener · 24.04.2015, 02:16

Не по теме:

krapotkin, как принято в шутку коверкать русский в моей семье - "нет за сто" ))

@Nuts_nio · 28.06.2018, 00:26

Можно так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TForm1.DEMO_no(Sender: TObject);
var
  N_btn: set of 1..20;
  i :Integer;
begin
 N_btn:=[];   //указать не активные элементы меню
  for i := 0 to ComponentCount-1 do
  begin
    with pm2 do
    begin
      if Components[i] is TMenuItem then
      if TMenuItem(Components[i]).Tag in N_btn then
          TMenuItem(Components[i]).Enabled:=false;
    end;
  end;
end;
 
procedure TForm1.DEMO_yes(Sender: TObject);
var
  N_btn: set of 1..20;
  i :Integer;
begin
 N_btn:=[];//указать активные элементы меню
  for i := 0 to ComponentCount-1 do
  begin
    with pm2 do
    begin
      if Components[i] is TMenuItem then
      if TMenuItem(Components[i]).Tag in N_btn then
          TMenuItem(Components[i]).Enabled:=True;
    end;
  end;
end;

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,659 Записей в блоге: 21
	24.04.2015, 00:13
	я и говорю, грубая ошибка ) 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,659 Записей в блоге: 21
	24.04.2015, 01:34
	northener, спасибо, товарищ)) 0

@northener
	24.04.2015, 02:16
	Не по теме: krapotkin, как принято в шутку коверкать русский в моей семье - "нет за сто" )) 0