[lazarus] Patch win32: window owner, taskbar grouping

[Micha Nelissen]

Micha Nelissen wrote:

> Hi,
> 
> Attached is a patch which makes windows stick together if one form own 
> another. In the case of lazarus, when you click lazarus on taskbar, both 
> the object inspector and the source editor appear. Otherwise the object 
> inspector is lost, because it does not have a button on the taskbar.

Maybe you shouldn't apply the second part of the patch: that's for 
something else. Remove the begin and end, FParentWindow should always 
have a value if a form is defined.

Sorry about that,

Micha.

> @@ -2018,8 +2021,10 @@
>          writeln('Exception occured creating window');
>        end;
>        If (FMainForm = Nil) And (Application.MainForm = Nil) Then
> +      begin
>          FMainForm := TForm(Sender);
>        FParentWindow := Window;
> +      end;
>        Assert(False, 'Trace:CreateComponent - Form Window Handle Value = $' + IntToHex(Window, 8));
>        Assert(False, 'Trace:Creating a Form - SetProp');
>        DoSubClass := false;