TProc<TObject> zu TNotifyEvent

Weiter zu diesem post, deren akzeptierte Antwort bleibt sehr kryptisch:

@Button1.OnClick := pPointer(Cardinal(pPointer( procedure (sender: tObject) begin ((sender as TButton).Owner as TForm).Caption := 'Freedom to anonymous methods!' end )^ ) + $0C)^;

Frage ich mich, ob es möglich ist, erarbeiten die einfachste und elegante Weise, ähnlich:

Button.OnClick :=
                    AnonProc2NotifyEvent (
                    procedure (Sender: TObject)
                    begin
                      ((Sender as TButton).Owner as TForm).Caption := 'Freedom to anonymous methods!'
                    end
                      );

so, wie Sie zu erreichen, den gleichen Zweck und wo AnonProc2NotifyEvent ist eine Methode, die Besitzer der Schaltfläche mit der folgenden Signatur:

TOwnerOfButton = class(TForm)
  Button: TButton;
  ...
private
  ...
protected
  function AnonProc2NotifyEvent(aProc: TProc<TObject>): TNotifyEvent;
public
  ...
end;

Ist das machbar und wenn ja, wie umsetzen ?

  • Möchten Sie vielleicht einen Blick auf DSharp.Core.Veranstaltungen.pas.
  • Glienke: Danke für die Erinnerung es mir, ich habe in der Tat DSharp installiert auf meiner Kiste und ich habe es (nach meinem entlassen, die ich nicht verwenden es oft so oft), aber glaube, ich Folge ihm seit seiner Gründung (Bwt-ich bin auch Mitglied der DelphiPraxis, nicht sehr gut Deutsch aber Sie versuchen im Auge zu behalten, um die lebhafte Deutsche Delphi-Szene). Sicher Generika ist mein Nächster Schritt. Vielen Dank Stevie 🙂
InformationsquelleAutor menjaraz | 2012-07-15
  1. 29

    Dieser wird den job zu erledigen leicht genug:

    type
  TNotifyEventWrapper = class(TComponent)
  private
    FProc: TProc<TObject>;
  public
    constructor Create(Owner: TComponent; Proc: TProc<TObject>);
  published
    procedure Event(Sender: TObject);
  end;

constructor TNotifyEventWrapper.Create(Owner: TComponent; Proc: TProc<TObject>);
begin
  inherited Create(Owner);
  FProc := Proc;
end;

procedure TNotifyEventWrapper.Event(Sender: TObject);
begin
  FProc(Sender);
end;

function AnonProc2NotifyEvent(Owner: TComponent; Proc: TProc<TObject>): TNotifyEvent;
begin
  Result := TNotifyEventWrapper.Create(Owner, Proc).Event;
end;

    Den Owner parameter in AnonProc2NotifyEvent ist, so dass die Lebensdauer der wrapper-Objekt verwaltet werden können. Ohne sowas würden Sie Leck Instanzen TNotifyEventWrapper.

    Pass als Owner, die Komponente, zu der Sie eine Verbindung herstellen der Veranstaltung. Zum Beispiel:

    Button1.OnClick := AnonProc2NotifyEvent(
  Button1,
  procedure(Sender: TObject)
  begin
    (Sender as TButton).Caption := 'Clicked';
  end
);

    So, wenn der button ist zerstört, die TNotifyEventWrapper wird auch zerstört werden. Das wrapper-Objekt Leben müssen, mindestens so lange wie das Objekt, dessen Ereignisse assoziiert ist. Und so ist die Wahl der Button1 als Eigentümer ist die Natürliche und offensichtliche ein.

    • Vielen Dank David! Es ist nie mein Geist kreuzt, dass ein wrapper wird tun und es ist ein guter Kandidat, um componentize: Präzise, saubere und elegante Lösung.
    InformationsquelleAutor David Heffernan
  2. 6

    Referenz für das, was ich bin immer bei, ich studierte Barry Kelly's blog post verwiesen, in der vor SO post erwähnt und kam mit dieser Lösung:

    function TMainForm.Proc2NotifyEvent(const aProc: TNotifyReference): TNotifyEvent;
type
  TVtable = array[0..3] of Pointer;
  PVtable = ^TVtable;
  PPVtable = ^PVtable;
begin
  TMethod(Result).Code := PPVtable((@aProc)^)^^[3];
  TMethod(Result).Data := Pointer((@aProc)^);
end;

    Immer noch kryptisch, aber umhüllter, also die Erleichterung der Aufgabe der coder im Vergleich zu der ersten Methode.

    Habe ich versucht in Ordnung zu bringen MethRefToMethPtr und MakeNotify und legen Sie Sie alle in einer Methode.

    Bemerkt, dass es (leichte) änderung der Methodensignatur, das argument aProc wurde const.

    • Sie müssen noch etwas tun, am Leben zu halten die Objekte, die die anon proc-interface. Barry erwähnt, dass wichtige Details.
    • Heffernan: Sollte ich eine Referenz irgendwo?
    • Es muss ein Verweis auf die anon Methode, um das implementierende Objekt lebendig
    • Man könnte manuell erhöhen der refcount bei der Vergabe der anon-Methode zu TMethod.Data. Sie würde nur daran denken müssen, verringern Sie den refcount, wenn die Komponente (Button1) ist nicht mehr mit dem Ereignis, zB: type PInterface = ^IInterface; IInterface(TMethod(Result).Data) := PInterface(@aProc)^; ... IInterface(TMethod(Result).Data) := nil;
    InformationsquelleAutor menjaraz
Schreibe einen Kommentar