Thema: Delphi Über alles Zeichnen

Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#7

Re: Über alles Zeichen

  Alt 9. Mai 2007, 17:48
Klar, ein Formular ohne Rahmen und Titelleiste, dass so gross ist wie der Desktop.
Delphi-Quellcode:
procedure MakeFullScreenForm(form : TForm);
begin
   Assert(Assigned(form));
   Form.BorderStyle := bsNone;
   Form.FormStyle := fsStayOnTop;
   Form.SetBounds(0, 0, Screen.Width, Screen.Height);
end;
Und schon hast du die gesamte Fläche zum Zeichen. (über self.Canvas zugreifen)
Andreas
  Mit Zitat antworten Zitat