Kéo và thả thiết kế thời gian trong Delphi?

Question

Trước Delphi 2006 (tôi nghĩ) đã giới thiệu TFlowPanel và TGridPanel, tôi đã thực hiện một điều khiển tương tự về khái niệm. Nó vẫn làm một vài điều những điều khiển không làm, và khi nâng cấp mã của tôi để Delphi 2009, tôi quyết định thêm một vài cải tiến cho điều đó là tốt.

Ngay bây giờ, thứ tự các điều khiển con được xác định theo thứ tự tạo của chúng. FlowPanel và GridPanel cho thấy một cách tốt hơn với ControlIndex và các thuộc tính được lọc khác, nhưng tôi đã tự hỏi nếu có một cách để xử lý kéo và thả sắp xếp lại trong thiết kế thời gian? Theo như tôi có thể nói, kéo một điều khiển chỉnh sửa và thả nó vào bảng điều khiển của tôi không gọi bất cứ điều gì mà tôi có thể truy cập vào lúc thiết kế.

Tôi đã tưởng tượng một cách để phát hiện hoạt động thả trực tiếp hoặc có thể phát hiện khi điều khiển được di chuyển để tôi có thể xác định nơi cần đi.

Bất kỳ ý tưởng nào?

Cập nhật: OK, đã hoạt động. Kiểm soát vùng chứa đã được ghi đè AlignControls để quản lý vị trí của các điều khiển. Khi bạn kéo điều khiển lồng nhau và thả nó, AlignControls lại được gọi. Sau đó tôi so sánh các tọa độ mới của điều khiển với các điều khiển khác trong danh sách và di chuyển nó đến vị trí thích hợp.

Có một vài vấn đề mà tôi phải làm việc (chủ yếu liên quan đến nhiều cuộc gọi đến AlignControls) nhưng khái niệm cơ bản là đủ đơn giản. Nhờ tất cả những người bình luận cho tất cả sự giúp đỡ.

Answer 1

Bạn không thể kéo điều khiển đã có trên biểu mẫu và thả nó vào bảng điều khiển của bạn. Kéo chỉ dành cho di chuyển điều khiển chứ không phải để thay đổi cấp độ gốc. Để thay đổi phụ huynh, cắt và dán.

Nếu điều khiển đã có trên bảng điều khiển của bạn và bạn muốn di chuyển nó đến vị trí khác trên bảng điều khiển của bạn, thì bảng điều khiển có thể kiểm soát bố cục bằng cách ghi đè phương pháp TWinControl.AlignControls. Khi điều khiển được di chuyển, phương thức SetBounds của nó được gọi, và trong số những thứ tha xảy ra là nó gọi AlignControl(Self) trên cửa sổ chính của nó. Điều đó gọi số AlignControls. Hãy xem trong các điều khiển .pas và bạn sẽ thấy rằng đó là một phương pháp phức tạp, nhưng đó là những gì chịu trách nhiệm cho bố cục của trẻ trên điều khiển và đó chính xác là những gì bạn định thay đổi.

Answer 2

Bạn đã cố gắng viết sự kiện "OnDragDrop" cho thành phần lưới của mình, nơi bạn kiểm tra xem thành phần của bạn có ở chế độ thiết kế không?

Tôi chưa viết thành phần như vậy, nhưng tôi không thấy lý do sự kiện không nên kích hoạt.

Answer 3

Có lẽ một số đề xuất này có thể hữu ích.

Bạn có thể kiểm soát lại cha mẹ trong nhà thiết kế mà không cần phải cắt và dán. Xem khung cấu trúc và chỉ cần kéo điều khiển trực quan vào nút của một phụ huynh khác trong ngăn cấu trúc. Nếu bạn có mọi thứ trong bảng tính, hãy kéo mọi thứ ra khỏi bảng điều khiển luồng và kéo chúng trở lại theo thứ tự bạn muốn.

(Bạn có thể tái mẹ BẤT CỨ kiểm soát hình ảnh theo cách này, mà không thay đổi bất cứ điều gì khác hơn là mẹ của nó. Tôi rất khuyên bạn nên làm theo cách này.)

Bạn có thể xem hình dưới dạng văn bản, và di chuyển trật tự khai xung quanh trong đó - nhưng rõ ràng bạn sẽ cần phải cẩn thận khi chỉnh sửa các tập tin "tài nguyên" trực tiếp.

Bạn có thể đặt thứ tự tab trong trình thiết kế để bạn có thể thực hiện một điều khiển khác dựa trên thứ tự tab hoạt động như bạn muốn. Bạn có thể nhấp chuột phải vào biểu mẫu và thay đổi thứ tự tạo của các điều khiển không trực quan, nhưng điều đó không hoạt động với các điều khiển trực quan.