jak ustalić, która procedura wywołań zdarzeń w delphi

Question

Mam procedurę o nazwie XYZ (sender: TObject) w delphi. W moim formularzu jest jeden przycisk.

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

Oba zdarzenia wywołują tę samą procedurę. Chcę określić w procedurze XYZ, które zdarzenie wywołuje to (onclick lub onexit) i zgodnie z tym postępować z kodowaniem. Jak ustalić, które wydarzenie zostanie wyrzucone? dzięki

Answer 1

Nie możesz uzyskać tych informacji w uczciwy sposób. Rozwiązaniem jest użycie dwóch osobnych procedur obsługi zdarzeń na najwyższym poziomie, które z kolei mogą wywoływać inną metodę przechodzącą przez parametr identyfikujący, które zdarzenie jest obsługiwane.

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;