Eigene Klasse von TForm ableiten - Events

[DeddyH]

Wenn Du schon selbst nicht mehr weißt, wie Du die Methode deklariert hast:
procedure TForm1.MyEvent(Sender: TObject; sAction: String); //Sender-Parameter muss dazu [edit] Ich habe mal schnell ein Beispiel gebaut:

Delphi-Quellcode:

type

  TOnRenameEvent = procedure(Sender: TObject; NewName: string) of object;

  THund = class
  private
    FName: string;
    FOnRename: TOnRenameEvent;
    procedure SetName(const Value: string);
  public
    constructor Create;
    procedure ShowNewName(Sender: TObject; NewName: string);
    property Name: string read FName write SetName;
    property OnRename: TOnRenameEvent read FOnRename write FOnRename;
  end;

constructor THund.Create;
begin
  inherited;
  FName := 'Bello';
end;

procedure THund.SetName(const Value: string);
begin
  if Value <> FName then
    begin
      FName := Value;
      if Assigned(FOnRename) then
        FOnRename(self, FName);
    end;
end;

procedure THund.ShowNewName(Sender: TObject; NewName: string);
begin
  ShowMessage('Ich heiße jetzt ' + NewName);
end;

procedure TFormTest.btnNewDogClick(Sender: TObject);
var
  Hund: THund;
begin
  Hund := THund.Create;
  try
    Hund.OnRename := Hund.ShowNewName;
    ShowMessage(Hund.Name); //Bello
    Hund.Name := 'Hasso';
  finally
    Hund.Free;
  end;
end;

[/edit]