Neue Komponente soll Methode des Fensters aufrufen

[marcibaer]

Hallo zusammen.

Ich habe mit einen Nachfahren von TCheckListBox mit Popupmenü etc. gebaut.
Jetzt muss der Dialog, in dem die Komponente liegt, aber erfahren, dass eine Änderung stattgefunden hat - z.B. durch Aufruf eines der Popupmenü-Einträge.

Irgendwie kriege ich da die Polymorphie nicht hin ;(
Ich hab das so probiert, aber dann ist das natürlich hartcodiert und die entsprechende Methode eines nov TStandardBasisDialog abgeleiteten Dialogs wird nicht aufgerufen:

Delphi-Quellcode:

  Form := TStandardBasisDialog(GetParentForm(Self,false));
  Form.OnStandardChange(Sender);

Vielen Dank für die Hilfe!

[DeddyH]

Ich habe die Zusammenhänge zwar nicht ganz begriffen, aber normalerweise stellt eine Komponente doch Ereignisse bereit, in die sich dann der Anwender einklinken kann. D.h. wenn bei einem bestimmten Ereignis etwas geschehen soll, dann muss man das am Frontend über den Objektinspektor miteinander verknüppeln.

[marcibaer]

Na, ich meinte, dass der Dialog ja irgendwie mitbekommen muss, dass sich die Haken in der TCheckListBox geändert haben (z.B. durch Aufruf des Popup-Menüs, in dem es Eintrage wie "alle setzen" oder "alle löschen" gibt). Es gibt aber kein OnChange-Ereignis, mit dem ich das vom Dialog aus auswerten kann - oder kann ich sowas zusätzlich einbauen!? Wenn ja, dann wie!?

Mit der von mir probierten Herangehensweise triggert die Komponente halt selber die Änderungen des Dialogs an. Funktioniert halt nur bedingt - allerdings nicht bei abgeleiteten Dialogen! ;(

[DeddyH]

Es geht jetzt darum, dass Du nicht mitbekommst, wenn in der Checklistbox ein Eintrag seinen Status ändert (sei es per Maus oder Tastatur)?

[edit] Und erklär doch bitte mal den Zusammenhang. Deine Komponente ist ein Dialog, auf dem eine Checklistbox sitzt, der ein PopupMenu zugewiesen ist, oder wie? In dem Fall kannst Du doch dem OnClickCheck der Checklistbox ein Ereignis zuweisen, das Deinen Dialog von der Änderung in Kenntnis setzt. Das gilt dann natürlich auch für die OnClick-Ereignisse der MenuItems des PopupMenu. Das alles unter der Voraussetzung, dass ich Dich überhaupt richtig verstanden habe, da bin ich absolut nicht sicher. [/edit]

[marcibaer]

Nein, es geht um eine Komponente, die von TListCheckBox abgleitet ist. Diese enthält u.a. ein Popup-Menü ("alle markieren", "alle löschen" etc.). Diese Komponente setzt ich nun auf einen meiner Dialoge (von TForm abgleitet). Wie kann ich dem Dialog nun mitteilen, dass ich im der Komponente z.B. den Menüeintrag "alle markieren" ausgewählt habe, denn nun muss u.a. geprüft werden, ob der OKBtn enabled werden kann etc.?
Ich habe die Benachrichtigung so wie im . Eintrag gemacht - d.h. die Komponente startet den Kontrollmechanismus des Dialogs. Das klappt auch alles so, wie ich es wollte.

Mir geht es nur drum, ob es noch 'ne andere Möglichkeit gibt - also gibt es z.B. die Möglichkeit, neue Massages On... einzubauen, die dann im OI auftauchen, und in denen ich dann die weiteren Schritte durchführen kann? Und wenn ja, dann wie!?

Ich hoffe, ich habe mich verständlich ausgedrückt!?

[DeddyH]

Natürlich kannst Du auch eigene Ereignisse definieren und in Deine Komponente einbauen. Prinzipiell geht das so:

Delphi-Quellcode:

type
  TSomeEvent = procedure(Sender: TObject; Wuppdi: TDatentyp) of object;

  TDeineKomponente = class(TVorfahr)
  private
    FSomeEvent: TSomeEvent;
    ...
  published
    property OnSomeEvent: TSomeEvent read FSomeEvent write FSomeEvent;
    ...
  end;

Da die Property im published-Abschnitt deklariert ist, taucht sie auch im OI auf. Nun musst Du nur noch an geeigneter Stelle dieses Event auslösen.

Delphi-Quellcode:

procedure TDeineKomponente.Arbeit;
begin
  //Irgendwas machen
  if Assigned(FSomeEvent) then
    FSomeEvent(self, Wuppdi);

[marcibaer]

Danke ... so klappt's!

Ich hatte 'nen Brett vorm Kopf, was das Aufrufen der Prozedur angeht - dachte, ich müsste die mit irgendwelchen Messages verknüpfen!