Нужна форма, чтобы остаться на вершине только родителей - PullRequest
7 голосов
/ 11 сентября 2009

У меня есть многооконное приложение. Моя основная форма - дитя рабочего стола. Мое приложение может создавать другие формы, которые также становятся дочерними элементами рабочего стола. Однако у меня есть особый случай, когда моей основной форме необходимо создать форму, которая всегда будет оставаться поверх нее.

У меня это до некоторой степени работало ... однако, если я затем создаю другие окна в приложении, эта форма, кажется, остается поверх этих!

Так что в основном мне нужно знать ...

Как я могу создать форму из моей основной формы и сделать так, чтобы она оставалась только поверх моей основной формы? Возможно ли это?

1 Ответ

12 голосов
/ 11 сентября 2009
procedure TMainForm.Button1Click(Sender: TObject);
var
  f: TForm;
begin
  f := TChildForm.Create(Self);
  f.PopupMode := pmExplicit;
  f.PopupParent := Self;
  f.Show;
end;

Bye.

...