Formularz Delphi bez menu systemowego, ale z przyciskiem zamknięcia

Question

Domyślnie formularz z BorderStyle = bsSizeable ma menu systemowe (po lewej) i przycisk zamykania ("X", po prawej). Chcę pozbyć się menu systemu i trzymać przycisk zamykania.

Właściwość BorderIcons pozwala mi usunąć menu systemowe (poprzez menu biSystem), ale teraz przycisk zamknięcia również zniknął.

Czy istnieje sposób, aby to zrobić?

Korzystanie Delphi XE

PS: powinno być możliwe o ile dotyczy Windows: IE8 okno „Ustawienia Filtrowanie InPrivate” jest znaczna, posiada przycisk zamykania i nie ma menu systemowego.

Answer 1

Nie sądzę, że istnieje sposób, aby to zrobić bez uciekania się do niestandardowego rysowania obszaru, który nie jest klientem, co jest bardzo trudne w przypadku szkła.

Rozważ tę metodę.

procedure TMyForm.DeleteSystemMenu; 
var 
    SystemMenu: HMenu; 
begin 
    SystemMenu := GetSystemMenu(Handle, False); 
    DeleteMenu(SystemMenu, SC_CLOSE, MF_BYCOMMAND); 
end; 

Tak, udało się pozbyć zamkniętej pozycji z menu systemowego, ale powoduje również wyłączenie przycisku zamykania. Wydaje się więc, że nie można mieć jednego bez drugiego.

Answer 2

BorderStyle := bsSizeToolWin robi to, co chcesz, z nieco innym wyglądem przycisku X.

Answer 3

Przez "menu systemowe" masz na myśli ikonę po lewej stronie paska tytułu? Lub menu podręczne wywoływane za pomocą prawego przycisku myszy?

Jeśli jest ikona, że ​​chcesz usunąć - użyj tego kodu:

const 
    WM_ResetIcon = WM_APP - 1; 

type 
    TForm1 = class(TForm) 
    procedure FormShow(Sender: TObject); 
    protected 
    procedure WMResetIcon(var Message: TMessage); message WM_ResetIcon; 
    end; 

implementation 

procedure TForm1.FormShow(Sender: TObject); 
begin 
    PostMessage(Handle, WM_ResetIcon, 0, 0); 
end; 

procedure TForm1.WMResetIcon(var Message: TMessage); 
const 
    ICON_SMALL = 0; 
    ICON_BIG = 1; 
begin 
    DestroyIcon(SendMessage(Handle, WM_SETICON, ICON_BIG, 0)); 
    DestroyIcon(SendMessage(Handle, WM_SETICON, ICON_SMALL, 0)); 
end;