#100 TForm.OnActivate broken

[Bob Marietta]

I've got a 2 form application. There is a button on
the main form that shows the second form. The main
form also has a TMemo on it. The main form has an
OnActivateEvent that looks like this:

procedure TForm1.FormActivate(Sender: TObject);
begin
if (Form2<>nil) and Form2.Visible then
begin
Form2.BringtoFront;
Form2.SetFocus;
end;
end;

The idea of all this is to prevent the second form
from ever going behind the main form.

If you click on the TMemo or on the blue caption bar
at the top of the form, the FormActivate event is not
triggered. This event is triggered under the VCL but
not under CLX.

I have attached the source for CLX and VCL ports of
this application demonstrating the bug.

[Bob Marietta]

CLX TForm.OnActivate bug