Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Назначить главную форму в ран-тайме... [D7, WinXP]


IfBeginThenEnd ©   (2005-09-12 13:07:00) 

При создании (OnCreate) главной формы (Form1) вызывается процедура которая при выполнении некоторых условий, динамически создает вторую форму (Form2). Так-как при выполнении этих самых условий, Form2 создается первой, она автоматически назначается главной формой (при ее закрытии, закрывается все приложение, а при закрытии первой ничего не происходит(((), как мне вернуть "корону" превой форме?


IfBeginThenEnd   (2005-09-12 15:13:00) [1]

Наиль ©   (12.09.05 14:56) [7]

нет к сожалению не угадали, до шароварных програм которые хоть кому нибудь нужны за деньги еще не дорос.(((

программа реализует записки на рабочем столе (своего рода стики), при запуске она должна отобразить и те записки которые были написаны в прошлом сеансе, но небыли закрыты.
А про другие способы можно поподробнее...

Гаврила ©   (12.09.05 14:50) [6]

ОK! буду пробовать!


Наиль   (2005-09-12 14:56:00) [2]

>[2]
Просто человек пытается сделать в программе рекламу типа: "Если не заплатите, то Вам осталось жить 30 дней"
>>[5]
Я угадал или нет?
Если да, то есть другие способы.


Гаврила   (2005-09-12 14:50:00) [3]

Когда создаешь вторую форму - не передавай владельцом Application
Form2:=TForm2.Create(nil);


IfBeginThenEnd   (2005-09-12 14:49:00) [4]

Anatoly Podgoretsky ©   (12.09.05 14:29) [2]

не понял (((, Вы про какую ошибку?

ssk ©   (12.09.05 14:32) [3]

буду пробовать пасибо!

Del_programmer ©   (12.09.05 14:36) [4]

не спасибо на си не надо...


Del_programmer   (2005-09-12 14:36:00) [5]

могу сказать , тока на си.


ssk   (2005-09-12 14:32:00) [6]

когда-то я делал примерно так:

procedure SetAsMainForm(aForm:TForm);
var
 P:Pointer;
begin
 P := @Application.Mainform;
 Pointer(P^) := aForm;
end;


Anatoly Podgoretsky   (2005-09-12 14:29:00) [7]

Зачем же ты так делаешь? Какая то ошибка в проектировании?


MBo   (2005-09-12 13:26:00) [8]

Читать внимательно хелп по TApplication.MainForm


Наверх

Титульная страница Поиск, карта сайта Написать письмо