Форум: "Основная";
Поиск по всему сайту: 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.74 MB
Время: 0.014 c
3-8778            Сержик                2002-01-04 22:47  2002.02.04  
Можно запрос делать сразу из двух баз?


7-9016            Trot                  2001-10-12 06:47  2002.02.04  
Перехват обращения к LPT!


14-9001           Awex                  2001-12-10 16:07  2002.02.04  
Какое пиво лучше ?


1-8866            tovSuhov              2002-01-15 10:58  2002.02.04  
TIniFile в Windows2000...


14-8996           Antuan                2001-12-10 21:49  2002.02.04  
Бил Гейтс похоронил Win 95