Скачать: CL | DM;

Назначить главную форму в ран-тайме...   Найти похожие ветки 

← →
IfBeginThenEnd   (2005-09-12 13:07) [0]

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

---

← →
MBo ©   (2005-09-12 13:26) [1]

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

---

← →
Anatoly Podgoretsky ©   (2005-09-12 14:29) [2]

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

---

← →
ssk ©   (2005-09-12 14:32) [3]

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

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

---

← →
Del_programmer ©   (2005-09-12 14:36) [4]

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

---

← →
IfBeginThenEnd   (2005-09-12 14:49) [5]

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

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

ssk ©   (12.09.05 14:32) [3]

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

Del_programmer ©   (12.09.05 14:36) [4]

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

---

← →
Гаврила ©   (2005-09-12 14:50) [6]

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

---

← →
Наиль ©   (2005-09-12 14:56) [7]

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

---

← →
IfBeginThenEnd   (2005-09-12 15:13) [8]

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

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

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

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c