Eigene Klasse von TForm ableiten - Events

[NetSonic]

Hallo zusammen,

ich habe schon die Foren-Suche bemüht, aber für mich nicht das richtige gefunden. Vielleicht könnt Ihr mir ja einen bzw. den entscheidenden Tip geben:

Ich möchte eine eigene Form (TMyForm) von TForm ableiten und um ein weiteres Event ergänzen. Dieses soll ausgelöst werden, wenn der Aufruf SetMyParams(sAction) gemacht wurde. Wie muss ich das anstellen. Meine Klasse sieht bis jetzt wie folgt aus:

Delphi-Quellcode:

unit MyFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
TMyEvent = procedure(Sender:TObject; sAction: String) of object;  
TMyForm = class(TForm)
  private
    { Private-Deklarationen }
    FOnSetMyParams: TMyEvent;
  property MyEvent:TMyEvent read FOnSetMyParams write FOnSetMyParams;
  public
    { Public-Deklarationen }
    procedure SetMyParams(sAction: String);
  end;

var
  MyForm: TMyForm;

implementation

{$R *.dfm}

procedure TMyForm.SetMyParams(sAction: String);
begin
if Assigned(FOnSetMyParams) then MyEvent(Self, sAction);
end;

initialization
  RegisterClass(TMyForm);

finalization
  UnRegisterClass(TMyForm);

end.

Aber das Ereignis wird nicht ausgelöst, obwohl ich auf die Prozedur SetMyParams zugreifen kann und die Klasse auch entsprechend vererbt wurde.
Ziel ist es, diese "neue" Formular-Klasse zu nutzen, um Programminterne-Ereignisse auszulösen. Also z.B. von einer anderen Form aus, auf SetMyParams zuzugreifen und eine Zeichenfolge zu übergeben, auf die ich dann im TMyForm-Event reagieren kann. Hoffe, mein Vorhaben ist soweit klar geworden?!

Danke.

Gruß
NetSonic

[DeddyH]

Die Property im private und deren Setter (der allerdings nicht zugewiesen wurde) im public-Abschnitt? Das kann ja nicht stimmen, oder?

[NetSonic]

Ok, das klingt plausibel. Aber was bedeutet für Dich jetzt zugewiesen bzw. wie müsste diese Zuweisung dann aussehen?

[DeddyH]

Ich hatte Dich zuerst falsch verstanden, aber wenn ich jetzt richtig denke, müsste es so funktionieren:

Delphi-Quellcode:

type
  TMyEvent = procedure(Sender:TObject; sAction: String) of object;

  TMyForm = class(TForm)
  private
    { Private-Deklarationen }
    FOnSetMyParams: TMyEvent;
  public
    { Public-Deklarationen }
    procedure SetMyParams(sAction: String);
    property MyEvent: TMyEvent read FOnSetMyParams write FOnSetMyParams;
  end;

var
  MyForm: TMyForm;

implementation

{$R *.dfm}

procedure TMyForm.SetMyParams(sAction: String);
begin
  if Assigned(FOnSetMyParams) then 
    FOnSetMyParams(Self, sAction);
end;

[NetSonic]

Also leider, passiert da nix. Ich habe das ganze wie folgt eingebunden:

Meine neue Klasse:

Delphi-Quellcode:

unit MyFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
TMyEvent = procedure(Sender:TObject; sAction: String) of object;
TMyForm = class(TForm)
  private
    { Private-Deklarationen }
    FOnSetMyParams: TMyEvent;
  public
    { Public-Deklarationen }
    procedure SetMyParams(sAction: String);
    property MyEvent: TMyEvent read FOnSetMyParams write FOnSetMyParams;
  end;

var
  MyForm: TMyForm;

implementation

{$R *.dfm}

procedure TMyForm.SetMyParams(sAction: String);
begin
  if Assigned(FOnSetMyParams) then
    FOnSetMyParams(Self, sAction);
end;

initialization
  RegisterClass(TMyForm);

finalization
  UnRegisterClass(TMyForm);

end.

Der Abkömmling:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MyFormUnit, StdCtrls;

type
  TForm1 = class(TMyForm)
    Edit1: TEdit;
  procedure MyEvent(sAction: String);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyEvent(sAction: String);
begin
     MessageDlg(sAction, mtWarning, [mbOK], 0);
end;

//Wichtig!
//Abschnitt um die Formularklasse im Programm bekannt zu machen!!!
initialization
     RegisterClass(TForm1);
finalization
     UnregisterClass(TForm1);

end.

Und der Aufruf:

Delphi-Quellcode:

procedure TfrmMain.Button1Click(Sender: TObject);
begin
     Form1.Color := clRed;
     Form1.SetMyParams('TEST');
end;

Die Farbe wird verändert, aber mein Event wird nicht "gefeuert"...

[DeddyH]

Und wo wird der Property eine Methode zugewiesen?

Delphi-Quellcode:

MyForm := TMyForm.Create(nil);
MyForm.MyEvent := Methode; //das hier muss ja irgendwo stehen