ConsScreen^ habe ich Application.CreateForm übergeben, und dadurch wurden Formulare in anderen Fällen immer instanziert.
Mal ganz davon abgesehen, dass das Form ja angezeigt wird...
Delphi-Quellcode:
procedure CreateScreen;
begin
Application.CreateForm(TConsScreen,ConsScreen^);
SetWindowLong( ConsScreen^.Handle,
GWL_STYLE,
GetWindowLong( ConsScreen^.Handle, GWL_STYLE )
and ((not WS_CAPTION) and WS_BORDER));
ConsScreen^.Left := Screen.Width div 4;
ConsScreen^.Width := Screen.Width div 2;
ConsScreen^.Top := Screen.Height div 4;
ConsScreen^.Height := Screen.Height div 2;
ConsScreen^.Name := 'ConsScreen';
AssignEvents;
end;
Ach das hätt ich noch schreiben können...