为什么做不到?我是按下面的方法做的,没大问题。只有偶而会有些小问题
当从主窗口切换到这个预览窗口时,有时会不能把窗口提前。如果还不行,
我把代码寄来?
unit Preview;
interface
uses
Windows, SysUtils, Classes, Forms,
ExtCtrls, FR_View, ImgList, ComCtrls, ToolWin, StdCtrls, Menus, Buttons,
Controls;
type
TfrmPreview = class(TForm)
...
protected
procedure CreateParams(var Params: TCreateParams);
override;
var
frmPreview: TfrmPreview;
implementation
...
procedure TfrmPreview.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
end;