cách xác định quy trình cuộc gọi sự kiện nào trong delphi

Question

Tôi có một thủ tục có tên XYZ (người gửi: TObject) trong delphi. Có một nút trên biểu mẫu của tôi.

Button.onclick:= xyz; 
Button.OnExit:= xyz; 

Cả hai sự kiện đều gọi cùng một quy trình. Tôi muốn xác định trong thủ tục XYZ, mà sự kiện gọi này (onclick hoặc onexit) và theo đó tiến hành với mã hóa. Làm cách nào để xác định sự kiện nào bị sa thải? cảm ơn

Answer 1

Bạn không thể giữ thông tin đó bằng các phương tiện công bằng. Giải pháp là sử dụng hai trình xử lý sự kiện cấp cao nhất riêng biệt mà lần lượt có thể gọi một phương thức khác đi qua một tham số xác định sự kiện nào đang được xử lý.

type 
    TButtonEventType = (beOnClick, beOnExit); 

procedure TMyForm.ButtonClick(Sender: TObject); 
begin 
    HandleButtenEvent(beOnClick); 
end; 

procedure TMyForm.ButtonExit(Sender: TObject); 
begin 
    HandleButtenEvent(beOnExit); 
end; 

procedure TMyForm.HandleButtonEvent(EventType: TButtonEventType); 
begin 
    //use EventType to decide how to handle this 
end;