To remedy this, add the following code to your modal forms:
type TMyForm = class(TForm) ... protected procedure CreateParams(var Para: TCreateParams); override; .... end; .... procedure TMyForm.CreateParams(var Para: TCreateParams); begin inherited; Para.WndParent := GetActiveWindow;//to allow title flashing of child modal dialogs end;
No comments:
Post a Comment