โปรแกรม Delphi แสดงผลแบบเต็มหน้าจอโดยไม่มีแถบชื่อเรื่องครอบคลุมทั้งหน้าจอ (เหมาะสำหรับสกรีนเซฟเวอร์)

โปรแกรม Delphi จะแสดงแบบเต็มหน้าจอโดยไม่มีแถบชื่อเรื่อง ซึ่งครอบคลุมทั้งหน้าจอ ซึ่งมีประโยชน์ในการสร้างคอมพิวเตอร์อุตสาหกรรมหรือสกรีนเซฟเวอร์ ดังนั้นให้จดบันทึกไว้

คัดลอกรหัสรหัสดังต่อไปนี้:

ขั้นตอน TMainFrm.FormCreate (ผู้ส่ง: TObject);

เริ่ม

ด้วย MainFrm จะเริ่มต้น

{แบบฟอร์มตำแหน่ง}

บนสุด := 0 ;

ซ้าย := 0 ;

{ไปแบบเต็มหน้าจอ}

สไตล์เส้นขอบ := bsNone ;

WindowState := wsmaximized;

ClientWidth := หน้าจอความกว้าง ;

ClientHeight := หน้าจอความสูง;

รีเฟรช;

SetForegroundWindow(จัดการ);

SetActiveWindow (Application.Handle);

จบ;

จบ;