A aa515 Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-08 #1 窗体样式设为fsStayOnTop可不管你是否是在本应用中:)我想做成通用的状态窗体, 还能响应调用窗体的动作,这可不能是模式窗体啊。可做了很多次都不成功。请教了.
Y ysai Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-08 #2 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上面
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上面