Текущий архив: 2003.12.12;
Скачать: CL | DM;
Вниз
Противоположность Application.Run? Найти похожие ветки
← →
Sacred © (2003-12-02 01:12) [0]Привет всем!
У меня есть сплэш форма на которой два баттона (OK и Cancel) по ОК выполняеться Application.Run а вот что написать на Канцел?
Я пробовал Application.Terminate,но это выдает ошибку...
← →
Юрий Зотов © (2003-12-02 01:19) [1]Halt
← →
Ihor Osov'yak © (2003-12-02 01:51) [2]а может просто обойти Application.Run?
Например так (сорри за немного лишний код, лень адаптировать для примера, да и делалось года три наверно назад):
begin
Application.Initialize;
Application.Title := "АРМ "Склад"";
DecimalSeparator := ".";
ShortDateFormat := "dd.mm.yyyy";
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
DataModule1 := TDataModule1.Create(Application);
//
PasswordDlg := TPasswordDlg.Create(Application);
SplashForm.Hide;
SplashForm.Free;
PasswordDlg.ShowModal;
if PasswordDlg.ModalResult = mrOk then
begin
PasswordDlg.Free;
if idUser > 0 then
begin
if Check_User_Right(idUser, 1) > uamForbidden then
begin
InitUserRights;
GetTimeFromServer;
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TFormViewQuRetListToMaker, FormViewQuRetListToMaker);
Application.CreateForm(TFormShutleCharge, FormShutleCharge);
if not MainForm.quDepository.IsEmpty then
begin
ShowMessage("Доброго дня, " + uData.UserName);
Application.Run;
end;
end
else
begin
ShowMessage("Вибачте, " + uData.UserName +
", але на жаль у Вас відсутні повноваження для роботи з цим АРМ.");
end;
end
else
ShowMessage("Помилкова комбінація псевдонім/пароль");
end
else
PasswordDlg.Free;
end.
Страницы: 1 вся ветка
Текущий архив: 2003.12.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
