Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 31.01.2007, 23:49
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание Проблемы с паролем при запуске

Как сделать так что бы програма проверила перед запуском
checkbox1. если checkbox1 с галочкой то скрыть главное окно показать окно ввода пароля или по обраному если без галочки то показать главное окно скрыть окно ввода пароля.
Ответить с цитированием
  #2  
Старый 01.02.2007, 05:45
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Цитата:
что бы програма проверила перед запуском
checkbox1
А нету никакого CheckBox1 перед запуском программы. Не создан он еще, т.к. программа не запущена.

Если тебе нужно выяснить требуется ввод пароля или нет, то настройки эти нужно хранить где-то "снаружи". Например в реестре или во внешних файлах. Читать файл/реестр перед созданием главной формы, устанавливать некую глобульную для программы переменную-флаг, а при создании, хотя нет, при визуализации (OnShow) главной формы проверять эту переменную и выполнять действия в зависимости от ее значения.
Небольшой примерчик:
Глобальная переменная у нас будет AskPassword
В project.dpr
Код:
uses ...,registry;
....
var
  Reg:TRegistry;
begin
  Application.Initialize;
  Reg:=TRegistry.Create;
  with Reg do
    begin
      ....
      AskPassword:=Reg.ReadBool('AskPassword');
    end;
  Reg.Free;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end;
в TForm1.OnShow
Код:
begin
  if AskPassword then
    begin
      //Тут спросили пароль
      AskPassword:=not(AskPassword);  //Это чтобы при следующем OnShow пароль заново не спрашивался
    end
  else
    begin
      //Тут если пароль не нужен
    end;
end;

Вот так примерно
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:51.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter