Wie kann ich einen TNotifyEvent noch eine Variable mitgeben

[Net7]

Wie kann ich einen TNotifyEvent noch eine Variable mitgeben??

ähnlich

Delphi-Quellcode:

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);// <-- so wie hier der error.. mitgegeben wird

wie funktioniert das bei der Komponentenprogrammierung?? :gruebel:

[jbg]

Zitat:

Zitat von Net7

Wie kann ich einen TNotifyEvent noch eine Variable mitgeben??

Gar nicht.

Zitat:

wie funktioniert das bei der Komponentenprogrammierung?? :gruebel:

Es gibt auch noch mehr als TNotifyEvent.

TNotifyEvent ist nichts anderes als:

Delphi-Quellcode:

type
  TNotifyEvent = procedure(Sender: TObject) of object;

Nun 1 und 1 zusammenzählen und programmieren.

[Net7]

Zitat:

Zitat von jbg

Zitat:

Zitat von Net7

Wie kann ich einen TNotifyEvent noch eine Variable mitgeben??

Gar nicht.

Zitat:

wie funktioniert das bei der Komponentenprogrammierung?? :gruebel:

Es gibt auch noch mehr als TNotifyEvent.

TNotifyEvent ist nichts anderes als:

Delphi-Quellcode:

type
  TNotifyEvent = procedure(Sender: TObject) of object;

Nun 1 und 1 zusammenzählen und programmieren.

Also so...

Delphi-Quellcode:

unit Kompo;

interface

uses
  SysUtils, Classes, ScktComp;

TMeinEvent = procedure (Sender:TObject;var Typ:Integer) of object;
.
.
.
private

FOnMeinEvent:TMeinEvent;
.
.

published

property    OnMeinEvent:TMeinEvent  read FOnMeinEvent write FOnMeinEvent;

.
.
.

:mrgreen:


Vielen Dank!!