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 [/edit]

[Luckie]

Mist, wer macht denn so was? 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...