Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

Подскажите, где поставить проверку... 


Boris   (2002-01-15 18:21) [8]

olban прав!

Я делаю следующим образом:

program KurtLaukel;

uses
Forms,
LaukelLagerstand in "LaukelLagerstand.pas" {fMainForm},
SetUser in "SetUser.pas" {fUser},

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TfUser, fUser);
Application.CreateForm(TfMainForm, fMainForm);
Application.Run;
end.

В проекте первой появляется форма fUser
пользователь вводит свои аттрибуты. Проверяем.
если все окей то

fUser.Visible:=False; //просто ее с глаз долой
fMainForm.Show; //никаких терминате

если нехороший человек то просто

fUser.close

При окончании работы честным человеком. В модуле fMainForm
закрыть fUser

procedure TfMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
fUser.Close;
end;

И ВСЁ!!!!!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.015 c
7-9019            gunner                2001-10-25 17:43  2002.02.04  
Неизвестный модуль !


1-8911            Марина                2002-01-17 13:48  2002.02.04  
Цветшрифта в ячейке StringGrid


1-8952            Alexsum               2002-01-18 15:34  2002.02.04  
Версия файла


1-8869            Mr.Fox                2002-01-09 13:27  2002.02.04  
Помогите плиз


3-8795            dmitriyk              2002-01-04 04:20  2002.02.04  
Как вывести информацию (HTML) в WebBrowser из БД Access