cách đặt chiều rộng và chiều cao của biểu mẫu trong delphi

Question

Làm cách nào tôi có thể đặt chiều rộng và chiều cao của biểu mẫu trong Delphi 7? Biểu mẫu chứa các loại điều khiển khác nhau trên đó. Tôi cần đặt kích thước biểu mẫu chính thành 127x263. Nó sẽ thay đổi theo chương trình trong một lần nhấp nút.

Answer 1

Giống như vậy:

MainForm.Width := 127; 
MainForm.Height := 263; 

Hoặc có lẽ bạn muốn thiết lập các khu vực khách hàng đối với những kích thước:

MainForm.ClientWidth := 127; 
MainForm.ClientHeight := 263; 

Tất nhiên, bạn thường thiết lập các thuộc tính trong Inspector Object lúc thiết kế và sau đó chúng được ghi vào tệp .dfm của biểu mẫu của bạn.

Nếu bạn muốn có một sự thay đổi đó xảy ra vào một nút nhấn thêm một handler cho nút bấm đó trông như thế này:

procedure TMainForm.Button1Click(Sender: TObject); 
begin 
    Width := 127; 
    Height := 263; 
end; 

Trong trích đoạn cuối cùng này bạn không cần phải xác định đối tượng dụ MainForm bởi vì trình xử lý sự kiện là thành viên của lớp TMainForm và do đó, Self là ẩn.

Nếu bạn muốn làm theo lời khuyên Ulrich Gerhardt (xem chú thích) và sử dụng SetBounds sau đó bạn sẽ viết:

SetBounds(Left, Top, 127, 263); 

Cuối cùng, nếu mẫu của bạn có Scaled = True thì bạn cần phải đối phó với font rộng. Kích thước pixel được mã hóa cứng như thế này sẽ không phù hợp với các máy có kích thước phông được đặt thành một giá trị khác với máy của bạn.