Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];
ВнизОпять про сворачивание дочерних окно Найти похожие ветки
← →
Димыч © (2006-11-30 11:26) [0]Изучив несколько ответов на вопрос "Почему дочерние окно сворачивается не в панель задач а слева над ним?", понял что ответ один нужно дочернее окно создавать самому, при этом родителем назначать DesktopWindow так как указано ниже
procedure TForm1.FormCreate(Sender: TObject);
begin
frm:=TForm2.CreateParented(GetDesktopWindow);
frm.Show;
show;
end;
Моя проблема вследующем формы (главная и дочерняя) уже созданы обычным способомApplication.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
и имеют сложную конструукцию (весь интерфейс рисуется на них своими силами), и только потом я столкнулся с тем самым явлением (некрасивое сворачивание дочернего окна) и не представляю как теперь от него избавиться. Неужели переписывать всё заново, может есть какой то способ задать дочерней форме родителя DesktopWindow например при её создании (в procedure TForm2.FormCreate(Sender: TObject))
← →
Cawa © (2006-11-30 13:12) [1]Ни каких проблем удали из проекта
Application.CreateForm(TForm2, Form2);
,а там же из подключения модуль ( Unit2 in "Unit2.pas" {Form2} ).
А в главном юните в Uses пропиши модуль с твоей формой.
После можешь создавать форму и вызывать её.
← →
Димыч © (2006-11-30 13:35) [2]Дело в том что модуль Unit2 ссылается на модуль Unit1, если сделать ссылку в Unit1 на Unit2 будет ошибка, конечно модно её устранить на на это надо время, я надеялся на то что можно указать родителя дочерней форме при её создании обычным способом
← →
Юрий Зотов © (2006-11-30 14:01) [3]> Димыч © (30.11.06 13:35) [2]
1. Ссылку в Unit1 на Unit2 можно сделать в implementation. Ошибки не будет.
2. Можно в дочерней форме перекрыть CreateParams или CreateWnd и там прописывать Desktop, как Parent.
← →
Димыч © (2006-11-30 14:07) [4]Вот второй вариант мне очень нравиться, только я не знаток перекрываний если не трудно приведите пример.
← →
Димыч © (2006-11-30 14:31) [5]написал вот так
procedure Tform5.CreateParams(var Params: TCreateParams);
begin
params.WndParent:=GetDesktopWindow;
inherited;
end;
неработает, окно сворачивается как и раньше
← →
Димыч © (2006-11-30 14:33) [6]Все нашел ошибку
procedure Tform5.CreateParams(var Params: TCreateParams);
begin
inherited;
params.WndParent:=GetDesktopWindow;
end;
Спасибо за советы
← →
Юрий Зотов © (2006-11-30 14:45) [7]> Димыч
Естественно. Ведь inherited вызывает унаследованный метод и надо, чтобы он не затер Ваши установки. Поэтому их надо делать ПОСЛЕ inherited.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.042 c