Eigenes Objekt welches TLabel, TImage nutzt

[hedie]

Hallo zusammen

Ich stehe vor folgendem Problem:
Um ein schönes, ansprechendes Menu zu erstellen, möchte ich mit TImage und TLabel ein paar "Buttons" machen.
Dies habe ich bisher manuell gelöst. Einzelne Images und Labels auf die Form gezogen und entsprechend Code dazu geschrieben.

Nun würde ich dies jedoch gerne in ein eigenes Objekt verpacken.
Dazu habe ich mir gedacht, dass mich meinem Objekt mitteile, wie viele Buttons ich habe, bzw. mittels objekt.AddButton einen neuen hinzufügen kann.

Zum Thema Objekterstellung habe ich mich hier eingelesen:
https://de.wikibooks.org/wiki/Progra...d_Destruktoren
http://www.delphi-treff.de/object-pa...n-und-objekte/

Dies sollte kein grösseres Problem darstellen.

Was mir jetzt jedoch noch nicht ganz klar ist, ob ich denn innerhalb meines Objektes auch Objekte vom Typ TLabel, TImage und z.B. TStringlist instanzieren darf?

Darf ich z.B. auch sowas machen:

Delphi-Quellcode:

unit myObject;

interface

type
  TmyObject = class
    constructor Create;
  private
    FHooverImage: TImage; //<--- Timage
    FIcon: TImage;
    FText: TLabel; //<--- Label
    FHeight
    procedure SetHeight(Height:integer);
  public
    property Height: integer read FHeight write SetHeight;
  end;

FIcon, FText und FHooverImage würde ich dann im TmyObject.Create mittels FIcon := TImage.Create instanzieren.

Falls nicht, wie macht man dies in meinem Fall?


Danke schonmal

[mkinzler]

Grundsätzlich kann man so machen allerdings würde man eine geeignete Basisklasse wählen. In diesem Fall würde sich ein TPanel o.ä. anbieten.
Im Konstruktor musst Du Deine Subkomponenten erzeugen Wenn Du Dein Objekt als Owner nimmst, kannst Du auf einen Destruktor für die Freigabe der Komponenten verzichten.

[hedie]

Zitat von mkinzler:

Grundsätzlich kann man so machen allerdings würde man eine geeignete Basisklasse wählen. In diesem Fall würde sich ein TPanel o.ä. anbieten.
Im Konstruktor musst Du Deine Subkomponenten erzeugen Wenn Du Dein Objekt als Owner nimmst, kannst Du auf einen Destruktor für die Freigabe der Komponenten verzichten.

Du meinst, das wenn ich ein TPanel als Basisklasse wähle, und darin meine Images uns Labels platziere, werden diese alle automatisch durch den Destruktor des TPanel wieder freigegeben?

Bei FIcon := TImage.Create();
übergebe ich da am besten "self"?

[himitsu]

Und damit man es überhaupt auf die Form drauf bekommt, muß es mindestens von TComponent oder TWinControl erben, bzw. einer anderen Container-Komponente (wie z.B. dem TPanel, wo man andere Komponenten drin aufnehmen kann)

TLabel und TImage malen nur selber auf das Canvas des Parent, was man auch selber machen kann, also z.B. von TPaintBox erben und im Paint den Text und ein TBitMap (oder eine andere Grafikkomponente) auf dessen Canvas drauf malen.

Zitat:

Du meinst, das wenn ich ein TPanel als Basisklasse wähle, und darin meine Images uns Labels platziere, werden diese alle automatisch durch den Destruktor des TPanel wieder freigegeben?

Ja, alles was von TComponent oder Nachfahren erbt, wird durch dessen Owner freigegeben.

[hedie]

Vielen Dank!

Hat wunderbar geklappt!
Sobald ich fertig bin, werde ich den Code bzw. die Klasse veröffentlichen.

Nur noch etwas beschäftigt mich.
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.

Nun weiss ich jedoch nicht, wie ich eine solche Variable definieren soll, damit ich schlussendlich meine Prozedur übergeben kann.

myObject.OnClickProzedur := MeineEigeneProzedur; Innerhalb meines Objektes möchte ich dann einfach folgendes tun:

if assigned(OnClickProzedur) then OnClickProzedur(self);
Hoffe jemand kann mir helfen.

[Sir Rufo]

siehe TNotifyEvent

[hedie]

Zitat von Sir Rufo:

siehe TNotifyEvent

Danke, das habe ich bereits versucht:

Delphi-Quellcode:

type TmyObject = class(TPanel)
  private
    ...
    FOnButtonClick:TNotifyEvent;
  public
    property OnButtonClick: TNotifyEvent read FOnButtoClick write FOnButtoClick;
    ...
end;

...

procedure MeineFunktion;
begin
  ShowMessage(inttostr(Form1.test.ButtonActive));
end;

...

var
  test:TmyObject
...
  test.onButtonClick := MeineFunktion;

Dies gibt mir eine Fehlermeldung:

"Inkompatible Typen: Methodenzeiger und reguläre Prozedur"

[Dejan Vu]

Stimmt ja auch. TNotifyEvent ist ein Zeiger auf ein ein 'Procedure of Object', deine 'MeineFunktion' nur eine Prozedur.

Erstelle Dir eine Klasse mit einer Methode 'MeineFunktion'.

Ich würde aber eher ein TFrame verwenden: Ist einfacher, finde ich. Das muss man nicht erst als Komponente registrieren. Man hat aber trotzdem den Vorteil, sich das im Designer zurecht schubsen zu können.

[hedie]

Zitat von Dejan Vu:

Stimmt ja auch. TNotifyEvent ist ein Zeiger auf ein ein 'Procedure of Object', deine 'MeineFunktion' nur eine Prozedur.

Erstelle Dir eine Klasse mit einer Methode 'MeineFunktion'.

Ich würde aber eher ein TFrame verwenden: Ist einfacher, finde ich. Das muss man nicht erst als Komponente registrieren. Man hat aber trotzdem den Vorteil, sich das im Designer zurecht schubsen zu können.

"MeineFunktion" ist ausserhalb des Objekts bzw. der Klasse.

Wenn ich im Public Bereich der Klasse

procedure MeineFunktion; schreibe, dann meldet er "Ungenügende Forward-oder External-Deklaration"
Wie kann ich dem Compiler mitteilen, dass diese Prozedur erst später definiert wird und zwar von ausserhalb der Klasse?

Zum Thema TFrame.
Ich benötige ein TLabel als Grundlage, da es mir als Container für meine Objekte dient und ich zudem
damit die Hintergrundfarbe anpassen kann.

TFrame kenne ich noch nicht und weiss nicht ob es damit genau so einfach gewesen wäre.

[DeddyH]

MeineFunktion kann bzw. soll ja auch außerhalb der Klasse sein, aber dafür eine Methode einer anderen Klasse. Deine ist eine sog. "reguläre Prozedur", das ist etwas anderes.