Форум: "Основная";
Текущий архив: 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;
И ВСЁ!!!!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c