Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Закрепить форму над другой  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 12319
Есть такой код
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  Form2.Show;
end;
Можно ли сделать так, чтобы Form2 всегда была над Form1, а для других окон работал обычный Z-Order.

Если сделать
Form2.FormStyle := fsStayOnTop;
то она поднимается над всеми окнами в системе, а это не нужно.

С уважением, Vasilisk

Сообщение было отредактировано: 18 ноя 20, 14:13
18 ноя 20, 14:12    [22234587]     Ответить | Цитировать Сообщить модератору
 Re: Закрепить форму над другой  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 51775

Form2.Parent := Form1;

Posted via ActualForum NNTP Server 1.5

18 ноя 20, 14:31    [22234606]     Ответить | Цитировать Сообщить модератору
 Re: Закрепить форму над другой  [new]
alekcvp
Member

Откуда:
Сообщений: 2494
Dimitry Sibiryakov

Form2.Parent := Form1;

Form2.PopupParent := Form1;
18 ноя 20, 14:41    [22234619]     Ответить | Цитировать Сообщить модератору
 Re: Закрепить форму над другой  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 12319
Dimitry Sibiryakov
Form2.Parent := Form1;
Прикольно. Но тогда она начинает заползать за клиентскую область родителя.
alekcvp
Form2.PopupParent := Form1;
То что нужно. Спасибо.
18 ноя 20, 14:58    [22234638]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить