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