Форум: "Основная";
Поиск по всему сайту: 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.02 c
4-9034            KIR                   2001-12-04 00:51  2002.02.04  
Как зарегистрировать свой тип файлов


7-9018            Spiritbad             2001-10-25 12:47  2002.02.04  
Про порты.


1-8856            Sensor                2002-01-21 12:38  2002.02.04  
Transparant


4-9045            DKeeper               2001-12-06 08:21  2002.02.04  
Как узнать handle поля ввода чужого окна?


6-8958            DenKop                2001-11-08 00:43  2002.02.04  
Сообщения Windows