Seltsame Probleme mit TForm.Canvas

[DeddyH]

Zitat:

Delphi-Quellcode:

TConsScreen = type TForm;
PConsScreen = ^TConsScreen;

[edit] Wenn TForm neuerdings ein Record ist, nehme ich alles zurück :mrgreen: [/edit]

[Luckie]

Mist, wer macht denn so was? :roll: Ich habe gedacht die beiden Zeilen gehören noch zum Record und habe sie mir nicht richtig angeguckt. Eine Leerzeile oder Kommentar wäre keine schlechte Idee gewesen. ;)

[implementation]

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...