So entfernen Sie den weißen Rahmen von rechts und unten anstelle von BorderStyle: = bsNone im Inno-Setup?

Question

Ich habe versucht, ein borderless bewegliches Inno Setup zu machen und dachte mir, wie man es beweglich und grenzenlos machen kann, aber es gibt immer noch Grenze am rechten und unteren Teil.

Zuerst mein Code war BorderStyle := bsDialog.

Ich wechselte zu BorderStyle := bsNone, um das Setup border-less zu machen.

Answer 1

eine Client-Größe des Fensters Denken Sie daran, bevor Sie die BorderStyle und Wiederherstellen der Client Größe danach ändern:

procedure InitializeWizard(); 
var 
    ClientWidth: Integer; 
    ClientHeight: Integer; 
begin 
    ClientWidth := WizardForm.ClientWidth; 
    ClientHeight := WizardForm.ClientHeight; 

    WizardForm.BorderStyle := bsNone; 

    WizardForm.ClientWidth := ClientWidth; 
    WizardForm.ClientHeight := ClientHeight; 
end;