unit _uf_debugerLog;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  T_FDBGLOG = class(TForm)
    mDBGLog: TMemo;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Déclarations privées }
  public
      { Déclarations publiques }
  protected
   procedure CreateParams(var Params: TCreateParams); override;
     
  end;

var
  _FDBGLOG: T_FDBGLOG;

implementation

{$R *.DFM}
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
procedure T_FDBGLOG.CreateParams(var Params: TCreateParams);
begin

Inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
end;

procedure T_FDBGLOG.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
WindowState:=wsMinimized;
end;

end.

---