2010-02-23 13 views

Trả lời

20

Oh! Tôi tìm thấy trong thanh tra đối tượng "BorderIcons" Chỉ cần đặt có biMaximize từ đúng thành sai!

1

Đây là một mẹo khác nếu bạn chỉ muốn sử dụng mã đó.

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

Trong mã VCL này chỉ đơn giản nên được 'BorderIcons: = BorderIcons - [biMaximize]'. –

0

BorderIcons: = BorderIcons - [biMaximize]