Phát hiện nếu nút Chuột đã được nhấn trước khi biểu mẫu hiển thị

Question

Nếu nhấn nút chuột và cửa sổ hiển thị cửa sổ đó sẽ nhận được sự kiện MouseUp khi nút chuột được nhả ra.

Có thể phát hiện, khi cửa sổ được hiển thị, có hay không một nút chuột đã được nhấn?

Answer 1

tôi sẽ cố gắng này:

procedure TForm1.FormShow(Sender: TObject); 
begin 
    if GetKeyState(VK_LBUTTON) and $8000 <> 0 then 
    ShowMessage('Left mouse button is pressed...') 
    else 
    ShowMessage('Left mouse button is not pressed...') 
end; 

Answer 2

Để trả lời câu hỏi của bạn trực tiếp, bạn có thể kiểm tra trạng thái nút chuột với GetKeyState hoặc GetAsyncKeyState. Mã khóa ảo bạn cần là VK_LBUTTON.

Sự khác biệt giữa các trường hợp này là GetKeyState báo cáo trạng thái tại thời điểm thư hiện đang xếp hàng đang hoạt động được đăng lên hàng đợi của bạn. Mặt khác, GetAsynchKeyState cung cấp cho bạn trạng thái ngay lập tức mà bạn gọi GetAsynchKeyState.

Từ các tài liệu của GetKeyState:

Tình trạng chìa khóa trở về từ chức năng này thay đổi như một sợi chỉ đọc thông điệp chính từ hàng đợi thông điệp của nó. Trạng thái không phản ánh trạng thái ngắt liên kết với phần cứng. Sử dụng hàm GetAsyncKeyState để truy xuất thông tin đó. Ứng dụng gọi GetKeyState để trả lời tin nhắn nhập bằng bàn phím. Hàm này lấy trạng thái của khóa khi thông báo đầu vào được tạo ra.

Tôi nghi ngờ bạn nên sử dụng GetKeyState nhưng tôi không chắc chắn 100% vì tôi không thực sự biết những gì bạn đang cố gắng đạt được với thông tin này.