Làm cách nào để vô hiệu hóa nút tối đa trong chương trình delphi?Làm cách nào để vô hiệu hóa nút tối đa trong chương trình delphi?
8
A
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;
0
BorderIcons: = BorderIcons - [biMaximize]
Trong mã VCL này chỉ đơn giản nên được 'BorderIcons: = BorderIcons - [biMaximize]'. –