2010-02-23 55 views

回答

20

哦!我在對象檢查器中找到「BorderIcons」 只需在那裏設置biMaximize從真到假!

1

這是另一個竅門,如果你想使用代碼只做。

procedure TForm1.FormCreate(Sender: TObject); 
var 
    l: DWORD; 
begin 

    // hide minimize and maximise buttons 
    l := GetWindowLong(Self.Handle, GWL_STYLE); 
    l := l and not(WS_MINIMIZEBOX); 
    l := l and not(WS_MAXIMIZEBOX); 
    l := SetWindowLong(Self.Handle, GWL_STYLE, l); 

end; 
+5

在VCL碼本應該簡單地'BorderIcons:= BorderIcons - [biMaximize]'。 – 2012-02-24 08:00:28

0

BorderIcons:= BorderIcons - [biMaximize]

相關問題