![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Назначить главную форму в ран-тайме... [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