"Фоновая" форма

[Alex Cones]

Структура моего кода:

Некоторые действие перед загрузкой
Регистрация класса
Создание гл. окна
Создание на нем контролов
Обработчик событий

Мне нужно следующее:
Создать "фоновую" форму. Обработчик для неё не требуется, только, чтобы она висела как сплеш на фоне. Следовательно этот "бекграунд" должен находиться сзади mainform.

Надеюсь выразился правильно. Был бы рад не коду (если он конечно стандартный, иначе желательно еще и пояснение ) а структуре, как выше.

[Alex Cones]

Все еще актуально...

[Alex Cones]

Сделал вот так:

Unit UNTFRMProc;

Interface

Uses
 UNTFRMTypes,
 UNTFRMVars,
 UNTFRMExp;

Function WindowProc(hwnd, msg, wparam, lparam: longint): longint; StdCall;

Procedure WindowCreate(Var FRM : TShrewForm);
Procedure ImageCreate;
Procedure ShowAnimatedWindow;
Procedure ShutDown;
Procedure FillForms;

Implementation

Function WindowProc(hwnd, msg, wparam, lparam: longint): longint; StdCall;
Begin
  Result := UNTFRMExp.DefWindowProc(hwnd, msg, wparam, lparam);
  Case Msg Of

   (*WM_DESTROY*)$0002: UNTFRMProc.ShutDown;
  End;
End;

Procedure WindowCreate(Var FRM : TShrewForm);
Begin
 FRM.hInst := UNTFRMExp.GetModuleHandle(Nil);
  With FRM.WinClass Do
   Begin
    Style := $80;
    hIcon := UNTFRMExp.LoadIcon(FRM.hInst, PAnsiChar('MAINICON'));
    lpfnWndProc := @UNTFRMProc.WindowProc;
    hInstance := FRM.hInst;
    hbrBackground := 15 + 1;
    lpszClassName := FRM.ClsName;
    hCursor := UNTFRMExp.LoadCursor(0, PAnsiChar(32512));
   End;
 UNTFRMExp.InitCommonControls;
 UNTFRMExp.RegisterClass(FRM.WinClass);
 FRM.Handle := UNTFRMExp.CreateWindowEx(0, FRM.ClsName, 'Shrew',
 Cardinal($80000000) (* WS_POPUP *), FRM.Left, FRM.Top,
 FRM.Width, FRM.Height,
 0, 0,
 FRM.hInst, Nil);
End;

Procedure ImageCreate;
Begin
 FRMMain.IMGMain.Handle := CreateWindow('Static','' ,
  $40000000 or 14 or $10000000 (*WS_CHILD or SS_BITMAP or WS_VISIBLE*),
  0, 0,
  UNTFRMExp.GetSystemMetrics(0), Round(UNTFRMExp.GetSystemMetrics(1)/2),
  FRMMain.Handle, 0, FRMMain.hInst, nil);
End;

Procedure ShowAnimatedWindow;
Begin
 UNTFRMExp.AnimateWindow(FRMMain.Handle, 700, $00080000); {AW_BLEND}
 UNTFRMExp.AnimateWindow(FRMBack.Handle, 700, $00080000); {AW_BLEND}
End;

Procedure ShutDown;
Begin
  UNTFRMExp.UnRegisterClass(FRMMain.ClsName, FRMMain.hInst);
  UNTFRMExp.ExitProcess(FRMMain.hInst);
  UNTFRMExp.UnRegisterClass(FRMBack.ClsName, FRMBack.hInst);
  UNTFRMExp.ExitProcess(FRMBack.hInst);
End;

Procedure FillForms;
Begin
 FRMMain.ClsName := 'TShrew';
 FRMMain.Left := 0;
 FRMMain.Top  := 0;
 FRMMain.Width  := Round(UNTFRMExp.GetSystemMetrics(0)/2);
 FRMMain.Height := Round(UNTFRMExp.GetSystemMetrics(1)/2);
 FRMBack.ClsName := 'TBack';
 FRMBack.Left := Round(UNTFRMExp.GetSystemMetrics(0)/2);
 FRMBack.Top := 0;
 FRMBack.Width := Round(UNTFRMExp.GetSystemMetrics(0)/2);
 FRMBack.Height := Round(UNTFRMExp.GetSystemMetrics(1)/2);
End;

End.

 UNTFRMProc.FillForms;
 UNTFRMProc.WindowCreate(FRMMain);
 UNTFRMProc.WindowCreate(FRMBack);
 UNTFRMProc.ImageCreate;
 UNTFRMProc.ShowAnimatedWindow;
  While(UNTFRMExp.GetMessage(Msg, 0, 0, 0)) Do
   Begin
     UNTFRMExp.TranslateMessage(Msg);
     UNTFRMExp.DispatchMessage(Msg);
   End;
End.

Вроде все работает. Правильно ли написал или какая-то грубая ошибка идет при создании двух форм на один обработчик?

И такой вопрос: как мне FRMBack переместить за FRMMain?

[raxp]

И такой вопрос: как мне FRMBack переместить за FRMMain?

как насчет поиграться с WndParent, как-то так

[Alex Cones]

Поигрался, вроде сработало, спасибо.