Dafür ist nicht zwingend ein Hook notwendig. Erstelle eine
Unit mit folgendem Inhalt:
Delphi-Quellcode:
unit FixOldCreateOrder;
interface
uses
System.Classes,
Vcl.Forms;
type
TDataModuleFix =
class(TDataModule)
protected
procedure Loaded;
override;
end;
type
TFormFix =
class(TForm)
protected
procedure Loaded;
override;
end;
type
TForm = TFormFix;
implementation
procedure TFormFix.Loaded;
begin
inherited;
OldCreateOrder := False;
end;
procedure TDataModuleFix.Loaded;
begin
inherited;
OldCreateOrder := False;
end;
end.
Diese
Unit muss dann in allen Forms und DataModules als letztes in der Interface Uses-Anweisung stehen.
Im Designer steht dann zwar immer noch OldCreateOrder als True, aber das hat ja keine direkten Auswirkungen. Beim Programmstart wird das entsprechend korrigiert.
Für etwaige Abkömmlinge von TCustomActiveForm und TCustomDockForm müsste das dann entsprechend ergänzt werden.