Einzelnen Beitrag anzeigen

Benutzerbild von implementation
implementation

Registriert seit: 5. Mai 2008
940 Beiträge
 
FreePascal / Lazarus
 
#13

Re: Seltsame Probleme mit TForm.Canvas

  Alt 23. Jan 2009, 13:30
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...
Marvin
  Mit Zitat antworten Zitat