Две формы. Перекрывание.

[Alex Cones]

Требуется постоянное перекрывание одной формой другой - FRMMain под FRMInter.

Вот, что сделал, но судя по всему, FRMInter.ParentWindow := FRMMain.Handle; не дает форме показаться.

Без этой строки происходит обратное перекрывание - FRMMain над FRMInter, что не есть гут.

Как все сделать правильно?

program TK;

uses
  Forms,
  UNTMain in 'Code\Forms\UNTMain.pas' {FRMMain},
  UNTInter in 'Code\Forms\UNTInter.pas' {FRMInter},
  UNTServ in 'Code\Service\UNTServ.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFRMMain, FRMMain);
  Application.Run;
end.

unit UNTMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UNTInter, OleCtrls, SHDocVw, UNTServ;

type
  TFRMMain = class(TForm)
    WEBMain: TWebBrowser;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMMain : TFRMMain;
  CurDir  : String;


implementation

{$R *.dfm}

procedure TFRMMain.FormCreate(Sender: TObject);
begin
 CurDir := UNTServ.GetCurrrentDirectory;
 Application.CreateForm(TFRMInter, FRMInter);
 FRMInter.ParentWindow := FRMMain.Handle;
end;

procedure TFRMMain.FormShow(Sender: TObject);
begin
 FRMInter.Visible := TRUE;
end;

end.

unit UNTInter;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TFRMInter = class(TForm)
    IMGBack: TImage;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMInter: TFRMInter;
  (* BitMaps *)
  BTMBack : TBitMap;

implementation

uses UNTMain;

{$R *.dfm}

procedure TFRMInter.FormShow(Sender: TObject);
begin
 FRMInter.Left := FRMMain.Left;
 FRMInter.Top  := FRMMain.Top;
 FRMInter.IMGBack.Canvas.Draw(0,0, BTMBack);
end;

procedure TFRMInter.FormCreate(Sender: TObject);
begin
 BTMBack := TBitMap.Create;
 BTMBack.LoadFromFile(CurDir + '\Res\Back.bmp');
end;

procedure TFRMInter.FormDestroy(Sender: TObject);
begin
 BTMBack.Free;
end;

end.

[raxp]

...а просто добавить форме которая должна быть сверху, по типу

  protected
    procedure CreateParams(var Params:TCreateParams);override;
  end;

implementation
...

procedure Tform2.CreateParams;
begin
 inherited;
 Params.WndParent:= form1.Handle
end;

[Alex Cones]

Спасибо, помогло!

А где можно подробнее почитать про Params?

[raxp]

Метод CreateParams

TWinControl перед созданием окна вызывает виртуальный метод CreateParams, позволяя программисту задать низкоуровневые параметры создаваемого окна. В процедуру передается структура данных:

TCreateParams = record
   Caption: PChar;     // Заголовок окна, соответствующий параметру
                       // lpWindowName
   Style: Longint;     // Стиль окна, соответствующий параметру dwStyle
   ExStyle: Longint;   // Расширенный стиль окна (dwExStyle)
   X, Y: Integer; 
   Width, Height: Integer; // Координаты окна
   WndParent: HWND;    // Идентификатор окна-владельца (hWndParent)
   Param: Pointer      // Дополнительный параметр (lpParam)
   WindowClass: TWndClass;  // Структура TWndClass, позволяющая задать
                            // параметры класса окна
   WinClassName: array[0..63] of Char; // Имя класса окна
                                       // (lpClassName)
 end;

Наследники TWinControl могут перекрыть CreateParams, создавая окна с требуемыми внешним видом и поведением. Например, необходимо создать форму, не имеющую заголовка, однако позволяющую изменять свои размеры. Delphi не предоставляет возможности задать такое поведение визуальными средствами, однако, перекрыв TForm.CreateParams, мы легко добиваемся нужного эффекта:

procedure TForm1.CreateParams(var Params: TCreateParams);
 begin
   inherited; // Вызываем унаследованный обработчик, позволяя
              // VCL подготовить «типовую» конфигурацию окна
   with Params do
     // И изменяем требуемые параметры
     Style := Style and (not WS_CAPTION) or WS_THICKFRAME or WS_POPUP;
 end;

http://hack-world.org/showthread.php?t=770
http://www.compress.ru/article.aspx?id=11554&iid=452

[Alex Cones]

Еще раз спасибо.