德爾福事件處理，如何創建自己的事件

Question

我是新來的Delphi開發。我必須創建一個事件並傳遞一些屬性作爲參數。有人可以分享一些演示程序，展示如何從頭開始。我幾乎在每個網站上搜索了一下，他們都給了一段代碼，但我需要的是一個簡單易懂的完整的程序。

Answer 1

您可以使用一個事件處理反應過來的時候什麼事情發生（例如AfterCreation之前關閉）。

爲了使用事件自己的類，您需要定義事件類型。更改所需參數的類型和數量。

type 
    TMyProcEvent = procedure(const AIdent: string; const AValue: Integer) of object; 
    TMyFuncEvent = function(const ANumber: Integer): Integer of object; 

在該類中，您可以添加一個DoEvent（爲適當的事件重命名）。所以你可以在內部調用DoEvent。 DoEvent處理未分配事件的可能性。

type 
    TMyClass = class 
    private 
    FMyProcEvent : TMyProcEvent; 
    FMyFuncEvent : TMyFuncEvent; 
    protected 
    procedure DoMyProcEvent(const AIdent: string; const AValue: Integer); 
    function DoMyFuncEvent(const ANumber: Integer): Integer; 

    public 
    property MyProcEvent: TMyProcEvent read FMyProcEvent write FMyProcEvent; 
    property MyFuncEvent: TMyFuncEvent read FMyFuncEvent write FMyFuncEvent; 
    end; 

procedure TMyClass.DoMyProcEvent(const AIdent: string; const AValue: Integer); 
begin 
    if Assigned(FMyProcEvent) then 
    FMyProcEvent(AIdent, AValue); 
    // Possibly add more general or default code. 
end; 


function TMyClass.DoMyFuncEvent(const ANumber: Integer): Integer; 
begin 
    if Assigned(FMyFuncEvent) then 
    Result := FMyFuncEvent(ANumber) 
    else 
    Result := cNotAssignedValue; 
end; 

Answer 2

下面是一個簡短但很完整的控制檯應用程序，演示如何創建在Delphi自己的事件。包括從類型聲明到調用事件的所有內容。閱讀代碼中的註釋以瞭解發生了什麼。

program Project23; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

type 
    // Declare an event type. It looks allot like a normal method declaration except 
    // it suffixed by "of object". That "of object" tells Delphi the variable of this 
    // type needs to be assigned a method of an object, not just any global function 
    // with the correct signature. 
    TMyEventTakingAStringParameter = procedure(const aStrParam:string) of object; 

    // A class that uses the actual event 
    TMyDummyLoggingClass = class 
    public 
    OnLogMsg: TMyEventTakingAStringParameter; // This will hold the "closure", a pointer to 
               // the method function itself + a pointer to the 
               // object instance it's supposed to work on. 
    procedure LogMsg(const msg:string); 
    end; 

    // A class that provides the required string method to be used as a parameter 
    TMyClassImplementingTheStringMethod = class 
    public 
    procedure WriteLine(const Something:string); // Intentionally using different names for 
               // method and params; Names don't matter, only the 
               // signature matters. 
    end; 

    procedure TMyDummyLoggingClass.LogMsg(const msg: string); 
    begin 
    if Assigned(OnLogMsg) then // tests if the event is assigned 
     OnLogMsg(msg); // calls the event. 
    end; 

    procedure TMyClassImplementingTheStringMethod.WriteLine(const Something: string); 
    begin 
    // Simple implementation, writing the string to console 
    Writeln(Something); 
    end; 

var Logging: TMyDummyLoggingClass; // This has the OnLogMsg variable 
    LoggingProvider: TMyClassImplementingTheStringMethod; // This provides the method we'll assign to OnLogMsg 

begin 
    try 
    Logging := TMyDummyLoggingClass.Create; 
    try 

     // This does nothing, because there's no OnLogMsg assigned. 
     Logging.LogMsg('Test 1'); 

     LoggingProvider := TMyClassImplementingTheStringMethod.Create; 
     try 
     Logging.OnLogMsg := LoggingProvider.WriteLine; // Assign the event 
     try 

      // This will indirectly call LoggingProvider.WriteLine, because that's what's 
      // assigned to Logging.OnLogMsg 
      Logging.LogMsg('Test 2'); 

     finally Logging.OnLogMsg := nil; // Since the assigned event includes a pointer to both 
             // the method itself and to the instance of LoggingProvider, 
             // need to make sure the event doesn't out-live the LoggingProvider            
     end; 
     finally LoggingProvider.Free; 
     end; 
    finally Logging.Free; 
    end; 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
end. 

Answer 3

完整的項目回答是好。但是，這是一個備選答案，以您已經擁有的形式展示如何去做你想做的事。

進入您的形式，並轉到接口部分，在二類地區，表單的類定義之外，並添加一個類型：

interface 
type 
    TMyEvent = procedure(Sender:TObject;Param1,Param2,Param3:Integer) of object; 

    TMyForm = class(TForm) 
      .... 

這是傳統的，但不是必需的，第一項在你的事件中是發送它的對象，但要使用基類TObject而不是表單的實際類類型。
上面的其他參數完全不需要，但顯示你將如何聲明自己的附加數據。如果你不需要它們，那麼只需使用發件人：TObject。 在這種情況下，您不必定義TMyEvent，只需使用TNotifyEvent類型即可。

現在宣佈使用該類型，在你的表單字段：

TMyForm = class(TForm) 
private 
    FMyEvent : TMyEvent; 
    ... 

現在宣佈訪問該字段，在窗體的屬性部分屬性：

// this goes inside the class definition just before the final closing end 
property MyEvent:TMyEvent read FMyEvent write FMyEvent 

現在去哪裏你想要那個事件「火」（如果設置被調用），並寫：

// this goes inside a procedure or function, where you need to "fire" the event. 
procedure TMyForm.DoSomething; 
begin 
    ... 
    if Assigned(FMyEvent) then FMyEvent(Self,Param1,Param2,Param3); 
end; 

Answer 4

在將「事件」成DLL的方面，我描述了使用界面的概念，一步一步...也許這有助於以不同的方式：Using event listeners in a non-gui environment (DLL) (Delphi)