求助－－谢谢 ( 积分: 100 )

我用Delphi写了一个MDI应用，MDI是动态的，第一次打开子窗体，窗体是得到焦点的，可是如果子窗体已经打开（最小化），再单击子窗体就的不到焦点，怎样让已经存在的子窗体在打开的时候得到焦点， 谢谢

我用Delphi写了一个MDI应用，MDI是动态的，第一次打开子窗体，窗体是得到焦点的，可是如果子窗体已经打开（最小化），再单击子窗体就的不到焦点，怎样让已经存在的子窗体在打开的时候得到焦点， 谢谢

自己做一个一个资源文件的描述文本RC文件，例如 sample.rc ，“记事本”程序创建就行了。然后可以输入一些我们要定义的资源，

例如：

MEN BITMAP c:/bitmap/men.bitmap
ARJ EXEFILE c:/arj.exe
MOV AVI c:/mov.avi

然后用BRCC32把这个RC文件编译成sample.res（真正的资源文件）。

在Delphi的工程文件中使用 $R 编译指令让Delphi包括资源到EXE文件里面。

{$R sample.res}

这样我们就可以在这个单一的执行文件中调用资源了。举例如下：

EXEFILE：

procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;

AVI：

procedure LoadAVI;
begin
{Avi1是一个TAnimate类}
Avi1.ResName:='AVI';
Avi1.Active:=True;

我试过，好像还会得到焦点