Eigenes Objekt welches TLabel, TImage nutzt

[hedie]

Vielen Dank für deine Antwort.
Leider ist diese Thematik noch ein bisschen Neuland für mich.

Bei einem OnClick von einem Objekt wie z.B einem TLabel kann ich ja auch eine externe Prozedur zuweisen.
Wie wird dass dan da gelöst?

[himitsu]

Zitat:

Zitat von hedie (Beitrag 1329199)

Bei einem OnClick von einem Objekt wie z.B einem TLabel kann ich ja auch eine externe Prozedur zuweisen.

Nein, kann man nicht.

Es muß immer eine "Methode" (Prozedur in irgendeiner Klasse) sein, welche einen Parameter vom Typ TObjekt hat.

[hedie]

Danke

Jetzt habe ich es verstanden!
Einfach die Funktion noch innerhalb der Klasse z.B. im "private" Bereich bekannt machen.
Dann gehts :)

[Sir Rufo]

Und dann heisst das auch Methode :stupid:

[hedie]

Hier noch das Ergebnis

Eine Klasse um Menus zu erzeugen.
Dynamisch beliebige Buttons hinzufügen
mit definiertem Spacing und hoover Bildern.

Zudem kann beim AddButton noch angegeben werden ob er von oben her oder von unten hinzugefügt werden soll

Es handelt sich um meine erste selbst geschriebene Klasse.

[Perlsau]

Zitat:

Zitat von hedie (Beitrag 1329157)

Ich würde gerne ausserhalb des Objekts eine Prozedur definieren, welche ich innerhalb meines Objekts aufrufen kann. Sinn und Zweck soll sein, dass wenn jemand auf ein Image klickt und somit den Button betätigt, soll dies der Anwender aussehalb meines Objektes erfahren, indem seine zuvor definierte Prozedur aufgerufen wird.

Man kann schon was machen, um ein Ereignis in einer Klasse zu erzeugen und in einer aufrufenden Unit auf dieses Ereignis zu reagieren. Ich verwende als Beispiel immer gerne das, was ich ständig mache: Im Datenmodul, das die Datenbank-Zugriffskomponenten enthält, ein Ereignis erzeugen, wenn bestimmte Tabellen gesrcollt werden, um auf diese Weise in der Statusbar der Mainform gewisse Informationen über den ausgewählten Record anzeigen zu lassen.

Schritt 1: Du deklarierst in der Klassen-Unit außerhalb der Klassen-Deklaration einen Ereignis-Typ:

Delphi-Quellcode:

UNIT UnitData;

INTERFACE

USES
  SysUtils, StrUtils, Classes, DBAccess, IBC, DB, MemDS;

TYPE // Das wird außerhalb der Klasse deklariert
  TUpdateStatusbarEvent = Procedure of Object;
  ...
TYPE  // ab hier beginnt dann die eigentliche Klasse
  TDatMod = CLASS(TDataModule)
  ...
end.

Schritt 2: Damit hast du nun einen neuen Typ namens

Delphi-Quellcode:

TUpdateStatusbarEvent

. Nun deklarierst du eine Variable von diesem Typ im Private-Abschnitt:

Delphi-Quellcode:

...
  PRIVATE { Private-Deklarationen }
    Var
      fUpdateStatusbar : TUpdateStatusbarEvent;
...
end.

Schritt 3: Danach erzeugst du ein Property im Public-Bereich:

Delphi-Quellcode:

...
  PUBLIC  { Public-Deklarationen  }
...
    Property OnUpdateStatusbar : TUpdateStatusbarEvent read fUpdateStatusbar write fUpdateStatusbar;
...
end.

Schritt 4: In deiner aufrufenden Unit, in der etwas passieren soll, weist du nun dieses Ereignis deines Objekts (deiner Klasse) einer Methode deiner aufrufenden Unit zu, hier der Aktualisierung der Statusbar:

Delphi-Quellcode:

Procedure TFormMain.FormCreate(Sender: TObject);
begin
  ..
  DatMod.OnUpdateStatusbar := StatusBarAktuell; // DatMod ist hier die Variable für die Instanz des Datenmoduls
  ..
end;

Schritt 5: Um nun im Datenmodul ein Ereignis auszulösen, verwende ich folgenden Code genau dort, wo das Ereignis ausgelöst werden soll, z.B. in der AfterScroll-Ereignisbehandlung:

Delphi-Quellcode:

Procedure TDatMod.View_LogAccessAfterScroll(DataSet: TDataSet);
begin
  If Assigned(fUpdateStatusbar) Then fUpdateStatusbar;
end;

In meiner Hauptform wird nun immer dann, wenn sich in dieser Tabelle der Datensatzzeiger ändert (gescrollt wird), die private Methode

Delphi-Quellcode:

StatusBarAktuell;

aufgerufen.

[Jumpy]

In Perlsaus Schritt für Schritt Anleitung fehlt mMn nur ein Schritt/Punkt (ich glaube genau der mit dem der TE sein Problem hatte), was ist "StatusBarAktuell" bzw. wo ist das wie definiert (Schon klar, ist eine Methode von TFormMain). Vielleicht könnte Perlsau das noch ergänzen, dann wäre das Mini-Tutorial zum Methodenzeiger komplett.

[Perlsau]

"StatusBarAktuell" ist, wie ich oben bereits bemerkte, eine private Methode der aufrufenden Unit, hier der Mainform. Was gibt es da noch zu erklären? Das, was in dieser Methode passiert, sind Einträge in die Statusbar der Mainform. Wie man eine private Methode deklariert und implementiert, ist doch hier nicht das Thema, oder? Vermutlich möchte der TE an dieser Stelle gar keine Statusbar aktualisieren, sondern was ganz anderes ausführen? Welche Rolle sollte das spielen? Oder anders gefragt: Was ist dir denn jetzt tatsächlich noch unklar? Wie die Deklaration oder die Implementation einer Methode auszusehen hat? Zudem steht es dir jederzeit frei, meine kleine Anleitung zu ergänzen, wenn du meinst, da fehle noch etwas. Aus meiner Sicht fehlt da gar nichts:

1. Du hast eine Klassen-Unit, in der ein Ereignis ausgelöst wird.
2. Des weiteren hast du eine aufrufende Unit, in der auf dieses Ereignis reagiert werden soll.
3. In der aufrufenden Unit erstellst du eine Methode – eine Procedure oder eine Function im Private- oder Public-Abschnitt –, der du dieses Ereignis zuweist oder die du dem Ereignis zuweist, wie auch immer.

Es handelt sich also um eine allgemeine Erklärung, die anhand eines quasi beliebigen Beispiels (das, das ich verwende, habe ich bereits mehrfach auf Platte, das finde ich leicht, weil's immer im Datenmodul ist, und das muß ich nicht hier reintippen, sondern kann Copy&Paste verwenden) ein Schritt-für-Schritt-Tuturial darstellt. Ansonsten ist die Wahl des Beispiels gewissermaßen unerheblich. Eine allgemeine Erklärung beschreibt eine Vorgehensweise, die bei vielen verschiedenen Situationen angewendet werden kann. So hab ich hier z.B. auch eigene Klassen, die Ereignisse auslösen (Datenmodul ist keine "eigene" Klasse, die hab ich nicht selbst bzw. nicht vollständig selbst geschrieben). Ich bin mir ziemlich sicher, daß jeder, der diese Anleitung Schritt für Schritt befolgt, zum gewünschten Ergebnis gelangt.