如何使窗体只在本应用中为TOPMOST?(100分)

  • 主题发起人 主题发起人 aa515
  • 开始时间 开始时间
A

aa515

Unregistered / Unconfirmed
GUEST, unregistred user!
窗体样式设为fsStayOnTop可不管你是否是在本应用中:)我想做成通用的状态窗体,
还能响应调用窗体的动作,这可不能是模式窗体啊。可做了很多次都不成功。请教了.
 
protected
procedure CreateParams(var Params:TCreateParams); override;
//============================================================
procedure TChildForm.CreateParams(var Params:TCreateParams);
//让拥有者成为父
begin
inherited CreateParams(Params);
if Owner is TForm then
Params.WndParent:=TForm(Owner).Handle;
end;
//========================
建立窗体用Form2:=TForm2.Create(Form1);
这样Form2就会一直在Form1上面
 
ysai说的对。
 
多人接受答案了。
 
后退
顶部