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:

zusammenfalten · markieren

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

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.

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"?

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.

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.

siehe TNotifyEvent

Zitat von Sir Rufo:

siehe TNotifyEvent

Danke, das habe ich bereits versucht:

zusammenfalten · markieren

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"