Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

Признак главной формы - как поменять?   Найти похожие ветки 

 
Deedlit ©   (2003-12-07 07:57) [0]

Есть две формы. В ходе выполнения нужно ту, что была не главной, сделать главной, и наоборот... как это можно сделать? 0_o


 
Maxud ©   (2003-12-07 08:25) [1]

Application.MainForm?


 
Думкин ©   (2003-12-07 08:26) [2]


private
FMainForm: TForm;
public
property MainForm: TForm read FMainForm;


делай выводы.

А... зачем?


 
Maxud ©   (2003-12-07 08:40) [3]


> Deedlit © (07.12.03 07:57)

сорри, с Application.MainForm я погорячился (она readonly) :(


 
Deedlit ©   (2003-12-07 08:43) [4]

Application.MainForm - увы, read only. Не присваивается! :(

> А... зачем?
М-м... перед запуском главного окна нужно вывести окно login"а. Я думала сначала сделать главный LoginForm, а случае успешной авторизации - MainForm. Может быть, есть какой-то более... более нормальный способ?


 
Maxud ©   (2003-12-07 08:57) [5]

Тогда что-то типа этого:
В dpr:

...
var Pass: boolean;
begin
fmLogin := TfmLogin.Create(nil);
try
Pass := fmLogin.ShowModal = mrOK;
finally
fmLogin.Free;
end;
if not Pass then Exit;

Application.Initialize;
Application.CreateForm(TfmMain, fmMain);
Application.Run;

end;


 
Думкин ©   (2003-12-07 08:58) [6]

Создавай LoginForm не Application.CreateForm, а как остальные объекты.


 
Deedlit ©   (2003-12-07 16:43) [7]

Авторизация самодельная невзломаемая работает! :) Maxud, Думкин, спасибо вам огромное! :)



Страницы: 1 вся ветка

Текущий архив: 2003.12.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
3-61953
Noir
2003-11-25 18:34
2003.12.19
Проблеммы с запросом ADOQuery с параметрами


14-62196
Любопытный
2003-11-27 15:20
2003.12.19
Как писать в Delphi программу чтобы она запустилась в dos 7.0


7-62296
YDV
2003-09-26 13:00
2003.12.19
Сбой звуковой системы !


8-62165
Дидактилос из Эфебы
2003-08-22 11:54
2003.12.19
Запуск полноэкранного приложения на втором экране


3-61965
nejest
2003-11-26 11:48
2003.12.19
Как вывести ФИО вместо Фамилии Имени Отчества в Fast Report