Cách chặn chuyển động điều khiển khi chỉnh sửa biểu mẫu Delphi

Question

Tôi đang phát triển một thành phần trực quan (VCL), một TPanel chuyên dụng. Tôi cần phải chặn khi người dùng di chuyển một điều khiển rơi trên bảng điều khiển đặc biệt của tôi trong khi chỉnh sửa biểu mẫu. Tôi cần phải ngăn chặn di chuyển để điều chỉnh các thuộc tính trực quan của các điều khiển khác rơi trên cùng một bảng điều khiển đặc biệt.

Câu hỏi của tôi là: làm thế nào để chặn/phát hiện/phản ứng với việc di chuyển điều khiển bị rơi trên thành phần có nguồn gốc TCustomPanel, trong khi người dùng đang chỉnh sửa biểu mẫu trong IDE?

Answer 1

Bạn có thể ghi đè phương thức AlignControls của vùng chứa TPanel. đối số AControl sẽ cho bạn biết điều khiển con nào được di chuyển hoặc chèn vào vùng chứa và phản ứng tương ứng. Sau đó, bạn có thể điều chỉnh vị trí của các điều khiển con khác nếu cần.