Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Вниз

Форма   Найти похожие ветки 

 
Александр   (2002-07-26 16:35) [0]

Здравствуйте. Подскажите пожалуйста, как лучше всего решить слудеющую задачу. Запускается программа, показывается главная фора, которая тутже создает еще одн форму. Эту форму надо сделать поверх главной и других и не дать пользлвателю обращаться к другим формам приложения, пока эту не закроет.
Спаисбо.


 
MBo   (2002-07-26 16:36) [1]

form2.showmodal


 
Александр   (2002-07-26 16:41) [2]

делал, но при этом форма главная даже не отображается:(


 
MBo   (2002-07-26 16:53) [3]

Даже не знаю, что и сказать...
Как главная не отображается, если ты из нее создаешь вторую (не в OnCreate?)?


 
saxon   (2002-07-26 16:56) [4]

В .dpr пишеш

Application.OnIdle:=MainForm.StartDialog;
Application.Run;


а в MainForm.StartDialog создаешь ее и showmodal!


 
Александр   (2002-07-26 17:02) [5]

Не получается. Ругается в коде, чо не занет StartDialog.
И ка коплностью должен выгляждеть dpr? Там должы быть строки типа Application.CreateForm(TForm5, Form5);....?


 
saxon   (2002-07-26 17:12) [6]

Пример:

begin
Application.Initialize;
...
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TPasswordDlg, PasswordDlg);
...
Application.OnIdle:=MainForm.StartDialog;
Application.Run;
end.


PasswordDlg - твоя форма
если так то создавать ее в MainForm.StartDialog не надо!

читайте хелп!


 
saxon   (2002-07-26 17:14) [7]

да вот описание процедуры в классе главной формы
public
{ Public declarations }
procedure StartPWDDialog (Sender: TObject; var Done: Boolean);


 
saxon   (2002-07-26 17:15) [8]

извините :)
procedure StartDialog (Sender: TObject; var Done: Boolean);
!!


 
TTCustomDelphiMaster   (2002-07-26 17:20) [9]

Александр © (26.07.02 16:41)
Наверное в onShow делал?
Попробуй в onActivate.


 
Александр   (2002-07-26 17:32) [10]

TTCustomDelphiMaster: спасибо заработало. Просто я делал на OnShow.
Saxon: спасибо. Ваш метод тоже работает. Просто я сперва забыл прописать описание процедуры в классе главной формы


 
Александр   (2002-07-26 17:41) [11]

Опять проблемка. Как корректно сделать мледующее. Я открываю форму при помощи showmodal, на которой пользователь нажимает на кнопку, затем я должен эту форму на которой нажал он кнопку)закрыть и открыть другую. Тут у меня уже проблема. Окно не закрывается. Затем на той форме, которая открывается есть кнопка, которая должна сделать действие наоборот, т.е. обратно показать начальную форму и закрыть текущую.


 
saxon   (2002-07-26 17:48) [12]

И так до бесконечности :)


 
Anatoly Podgoretsky   (2002-07-26 17:51) [13]

Александр © (26.07.02 16:41)
Не правда ваша, отображается
Но ты уже написал, что не там делал (Александр © (26.07.02 17:32))

Александр © (26.07.02 17:41)
Опять неправда ваша, хорошо закрывается, а ты не хочешь быть более конкретным, если у тебя что то не получается и ты не можешь объяснить словами, то приводить кусок проблемного кода, что бы мы не занимались телепатией и не вытаскивали из тебя клещами подробности, поверь решение будет гораздо быстрее.


 
Александр   (2002-07-26 18:09) [14]

Попробую объяснить..просто код оченьл простой.
Вот на первой форме:
procedure TForm3.OpenNEWNEXTClick(Sender: TObject);
begin
Form5.Showmodal;
close;
end;

Вот на второй форме:

procedure TForm5.BackButton2Click(Sender: TObject);
begin
Form3.showmodal;
close;
end;

procedure TForm5.OKButton1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 0 then close
else begin
Form1.Memo.Lines.LoadFromFile("default.ins");
close;
end;
end;


 
saxon   (2002-07-26 18:14) [15]

Form5.Showmodal не даст отработать следующему за ней оператору
пока не закроется форма Form5.
И так далее ...


 
Александр   (2002-07-26 18:25) [16]

Я так и понял, а как быть не знаю:( Неужели просто нету в Дельфи такой опции как сделать окно поверх всех остальных этой программы и запретить доступ к ним?!:(


 
Александр   (2002-07-26 21:09) [17]

все. Спасибо разобрался. Просто запутался.



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

Форум: "Основная";
Текущий архив: 2002.08.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.007 c
4-24262
Berkut
2002-05-31 21:50
2002.08.08
Кнопка Пуск


1-24094
novice_al
2002-07-25 14:29
2002.08.08
По поводу формы


1-23997
iNew
2002-07-26 18:19
2002.08.08
Прочита в хелпе про stdcall и др. дериктивы и ничё не понял,


3-23893
NDR
2002-07-17 13:54
2002.08.08
oemtoansistr


3-23956
studentik
2002-07-15 20:26
2002.08.08
Подключение к БД Excel





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский