[Delphi] Child window verschijnt als aparte app in taakbalk

[Tomatoman]

In Delphi heb ik een component gebouwd rond de Windows-functies om een wizard te tonen. Die component, TWizard, is nu helemaal klaar, maar er is een probleem. De wizard moet als een child window van mijn applicatie verschijnen, maar wordt in werkelijkheid behandeld als een aparte applicatie. Hij staat als een aparte applicatie in de taakbalk. Bovendien werken functies zoals ShowMessage niet naar behoren. Zij tonen het venster als een child van het window dat zichtbaar was voordat TWizard werd aangeroepen.

Kortom, TWizard wordt blijkbaar niet aan de window list toegevoegd. En dat terwijl TWizard precies hetzelfde doet als wat TCommonDialog, TOpenDialog en dergelijke doen:

Delphi:

var
  ActiveWizard: TWizard = nil;

function TWizard.TaskModalDialog(var Header: TPropSheetHeader): Integer;
type
  TDialogFunc = function(var DialogData): Bool stdcall;
var
  ActiveWindow: HWnd;
  WindowList: Pointer;
  FPUControlWord: Word;
  FocusState: TFocusState;
begin
  Result := 0;
  try
    ActiveWindow := GetActiveWindow;
    WindowList := DisableTaskWindows(0);
    FocusState := SaveFocusState;
    try
      Application.HookMainWindow(MessageHook);
      asm
        // Avoid FPU control word change in NETRAP.dll, NETAPI32.dll, etc
        FNSTCW  FPUControlWord
      end;
      try
        { In unit Dialogs heet de variabele ActiveWizard anders, namelijk
          CreationControl en is van het type TCommonDialog }
        ActiveWizard := Self; 
        Result := PropertySheet(Header);
      finally
        ActiveWizard := nil;
        asm
          FNCLEX
          FLDCW FPUControlWord
        end;
        Application.UnhookMainWindow(MessageHook);
      end;
    finally
      EnableTaskWindows(WindowList);
      SetActiveWindow(ActiveWindow);
      RestoreFocusState(FocusState);
    end;
  except
    Application.HandleException(Self);
  end;
end;

Hoe maak ik van mijn Wizard een child window?

[Tomatoman]

Ik zal er wat plaatjes bijzetten om het duidelijker te maken.

Het Options venster (voordat de wizard wordt gestart):


Vanuit het Options venster kan de wizard worden gestart. Zodra de wizard verschijnt, is er een extra applicatie in de taakbalk. Op de screenshot ben ik al een paar pagina's op weg in de wizard.


Nu roep ik vanuit de wizard een nieuw dialoogvenster aan. De wizard verdwijnt naar de achtergrond (alsof een andere applicatie actief wordt) en het dialoogvenster verschijnt als een popup van het Options venster.

[Tomatoman]

Ongelofelijk, de oplossing lijkt te simpel om waar te zijn. Na de initialisatie van de wizard (met Wnd als window handle) doe ik

Delphi:

SetWindowLong(Wnd, GWL_HWNDPARENT, Application.Handle);

en alles werkt naar behoren.

[curry684]

tomatoman schreef op 15 March 2003 @ 21:09:
Ongelofelijk, de oplossing lijkt te simpel om waar te zijn. Na de initialisatie van de wizard (met Wnd als window handle) doe ik

Delphi:

SetWindowLong(Wnd, GWL_HWNDPARENT, Application.Handle);

en alles werkt naar behoren.

Ja dat klopt Taskbar toont nl. toplevel unowned windows, dus simpelweg een owner toewijzen lost het op (niet zo ongelofelijk dus )