有时需要一个窗体总在另一个窗体的上面,但不是最上面,如何实现呢?
需要重写窗体的CreateParams过程
type
TForm2 = class(TForm)
protected
procedure CreateParams( var Params: TCreateParams );override;
//...
end;
implementation
uses Unit1; //这个别忘了
{$R *.DFM}
procedure TForm2.CreateParams( var Params: TCreateParams );
begin
inherited CreateParams( Params );
with Params do
begin
Style := Style or ws_Overlapped;
WndParent := Form1.Handle; //父窗体为form1
end;
end;
不知这个与你的要求是否一致?