Eigene Klasse von TForm ableiten - Events

[DeddyH]

Und wo wird der Property eine Methode zugewiesen?

Delphi-Quellcode:

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

[NetSonic]

Sorry, aber bei dieser Thematik raucht mir gerade der Kopf. Kannst Du das bitte anhand meines Sourcecodes verdeutlichen?
Ich möchte ja erreichen, dass, wenn ich Form1.SetMyParams('test') aufrufe, das Event MyEvent gefeuert wird, in dem ich dann die übergebene Zeichenfolge weiterverarbeiten kann... Und ich dachte, diese Methoden-Zuweisung muss ich nur in meiner eigenen Klasse machen, damit wiederum davon abgeleitete Klassen automatisch darauf Zugriff haben.

Und die Zuweisung habe ich doch hier gemacht, oder sehe ich das Falsch?!

FOnSetMyParams: TMyEvent;

[DeddyH]

Delphi-Quellcode:

procedure TfrmMain.Wuppdi(Sender:TObject; sAction: String); //muss natürlich als Methode deklariert sein
begin
  ShowMessage('Da schau her: ' + sAction);
end;

procedure TfrmMain.Button1Click(Sender: TObject);
var 
  test: TMyForm;
begin
  test := TMyForm.Create(nil);
  try
    test.MyEvent := Wuppdi;
    test.SetMyParams('TEST');
//    test.ShowModal;
  finally
    test.Free;
  end;
end;

[NetSonic]

In Ordnung, aber ich möchte auf das Ereignis nicht innerhalb von TfrmMain reagieren, sondern innerhalb von Form1. Halt wie z.B. mit OnShow oder ähnlichem. Die muss ich doch auch nicht noch extra zuweisen... Hoffe mein Vorhaben ist soweit verständlich!?

[DeddyH]

Wieso musst Du OnShow nichts zuweisen? Wenn Du im Objektinspektor nichts im OnShow einträgst, dann wird das Event ja auch nicht gefeuert.

[himitsu]

In der IDE, genauer gesagt im OI, klickt man z.b. doppelt auf ein Event und Delphi weist es zu.

Ob es nun "manuell" im Code oder automatisch über die DFM zugewiesen wurde, ist dabei egal ... aber irgendwo muß die Methode zugewiesen sein, denn sonst weiß Delphi ja nicht was es dort was machen soll.

[DeddyH]

Richtig, das ist ja der Sinn von Events: man kann bei definierten Ereignissen eingreifen. Wenn man das gar nicht beabsichtigt, kann man ja auch stumpf irgendeine fixe Methode aufrufen oder dergleichen.

[NetSonic]

Zitat von DeddyH:

Wieso musst Du OnShow nichts zuweisen? Wenn Du im Objektinspektor nichts im OnShow einträgst, dann wird das Event ja auch nicht gefeuert.

Sorry, Du hast natürlich recht. Hatte mich da falsch ausgedrückt.
Aber wie ist es dann jetzt möglich, dem Event eine Methode innerhalb von Form1 zuzuweisen? Ich möchte "Wuppdi" nicht auf frmMain nutzen, sondern innerhalb des Formular, welches auf TMyForm basiert... Wie muss ich das anstellen?

[DeddyH]

Du kannst dem Event doch jede kompatible Methode zuweisen, egal welchem Objekt sie gehört. Soll das aber immer dieselbe aus Deinem TMyForm sein, dann brauchst Du auch kein Event wie bereits erwähnt.