Program Delphi ditampilkan dalam layar penuh tanpa title bar menutupi seluruh layar (cocok untuk screensaver)

Program Delphi ditampilkan dalam layar penuh tanpa bilah judul, menutupi seluruh layar. Ini berguna saat membuat komputer industri atau screensaver, jadi tulislah.

Copy kode kodenya sebagai berikut:

procedure TMainFrm.FormCreate(Pengirim: TObject);

mulai

dengan MainFrm dimulai

{Formulir posisi}

Atas := 0 ;

Kiri := 0 ;

{Ke layar penuh}

Gaya Perbatasan := bsNone ;

WindowState := dimaksimalkan;

Lebar Klien := Layar.Lebar;

ClientHeight := Layar.Tinggi;

Menyegarkan;

SetForegroundWindow(Menangani);

SetActiveWindow(Aplikasi.Handle);

akhir;

akhir;