不知如何下手:MDI程序的调用产生的窗口层次问题。 程序Main1,Child1..Childn均为MDI程序,均可独立执行。如果Main1调用Child1..Childn,则Child的窗口应位于Main窗口内,进行ALT+TAB切换后依然如此(外面应看不到Child程序),各位大虾如何解决啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //Alt+Tab键是系统注册的热键,尽量不要使用,以下我注册了个热键序列Ctrl+PageDown实现子窗的替换,希望能帮的上楼主.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, AppEvnts;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } HotKeyID:Integer; procedure HotKeyMSG(var Msg:TMessage);message WM_HOTKEY; end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin Tag:=0; HotKeyID:=GlobalAddAtom('Swap ChildForm'); RegisterHotKey(Handle,HotKeyID,MOD_CONTROL,34);end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin UnregisterHotKey(Handle,HotKeyID); GlobalDeleteAtom(HotKeyId);end;procedure TForm1.HotKeyMSG(var Msg: TMessage);begin if (Msg.WParam=HotKeyID) and Application.Active then begin Tag:=(Tag+1) Mod MDIChildCount; MDIChildren[Tag].BringToFront; end;end;end. 200分求解~~~~~~~~~~~~~~~~~~~ 江湖救急,各老大有空看下,图片按钮问题 DELPHI做的COM中,如何访问自己定义的类的CLSID和IID?谢谢! 關於網絡磁盤 com当中不能用adoconnection,为什么? 怎么在指定目录下按照文件的创建时间查找文件? 请给些课题? delphi 如何实现上传 win98+delphi6初始化问题! 怎样以超级用户的身份给普通用户指定权限?听说要用全局变量,能否详细点? 如何判断一个Edit中输入的是不是整数 如何在Delphi中輸入"叁"字?操作系統是繁體中文。急﹐在線等﹗
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, AppEvnts;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
HotKeyID:Integer;
procedure HotKeyMSG(var Msg:TMessage);message WM_HOTKEY;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Tag:=0;
HotKeyID:=GlobalAddAtom('Swap ChildForm');
RegisterHotKey(Handle,HotKeyID,MOD_CONTROL,34);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle,HotKeyID);
GlobalDeleteAtom(HotKeyId);
end;procedure TForm1.HotKeyMSG(var Msg: TMessage);
begin
if (Msg.WParam=HotKeyID) and Application.Active then
begin
Tag:=(Tag+1) Mod MDIChildCount;
MDIChildren[Tag].BringToFront;
end;
end;end.