保持面板总是底部mdi应用程序

时间:2012-12-27 04:23:43

标签: delphi

我想知道,如何让面板始终位于所有mdi表单的底部 我有这个..

      procedure TPanel.Loaded;
      begin
      Windows.SetParent(Handle, MainForm.ClientHandle);
      end;  


       procedure TPanel.WMWindowPosChanging(var Message: TWMWindowPosChanging);
         begin
           inherited;
           Message.WindowPos^.hwndInsertAfter := HWND_BOTTOM;
         end;

但是,当我使用系统菜单的表单下面的命令更改MDI表单时,面板放在上面 谢谢,对不起我的英文

0 个答案:

没有答案