TImage.Create() in extra Unit

[Sadrax]

Hallo,
ich möchte gerne ein Image zur Laufzeit erzeugen, was ich auch geschafft habe:

Delphi-Quellcode:

var bild : TImage
begin
  bild := TImage.Create(self);
  with bild do
  begin
    parent := formMain;
    left := 50;
    top := 50;
    height := 200;
    width := 200;
    canvas.font.name := 'Arial';
    show;
  end;
end;

So weit so gut, erstelle ich mir aber eine extra Unit und in dieser eine Klasse funktioniert es nicht.
Im constructor der Klasse soll dann das Image erstellt werden, als Parameter wird u.a. eine TForm für die parent-Eigenschaft übergeben.
Wenn ich dann jedoch zu der Stelle komme:
  Spielflaeche := TImage.Create(xxx); funktioniert es nicht.
Das Problem dürfte daran liegen, dass ich mit dem Parameter den die Create-Prozedur benötigt nicht klar komme.
In der Hilfe steht dazu ja folgendes:

Zitat:

AOwner ist die Komponente, die für die Freigabe der Instanz von TImage verantwortlich ist. Diese Komponente wird der Eigenschaft Owner zugewiesen.

Aber wenn ich das Formular, welches ich ja als Parameter bekommen habe, als Parameter übergebe kommt bei der Ausführung des Programmes immer ein Fehler.
Es funktioniert auch nicht wenn ich self, nil oder application übergebe.
Vielleicht könnte mir ja jemand das mit den Parameter welchen ich übergeben muss genauer erklären, oder wenigstens ein Beispiel nennen wie es funktioniert.

[Neutral General]

Hi,

Zitat:

als Parameter wird u.a. eine TForm für die parent-Eigenschaft übergeben

was heißt EINE TForm? Du musst die Form übergeben auf der das Image sein soll....
So ungefähr sollte das ganze aussehn:

Delphi-Quellcode:

// Andere Unit:
TKlasse = class
private
  FImage: TImage;
public
  constructor Create(AParent: TForm);
end;

constructor TKlasse.Create(AParent: TForm);
begin
  inherited Create;
  FImage := TImage.Create(AParent);
  with FImage do
  begin
    Parent := AParent;
    //...
  end;
end;

// Haupt-Unit:
var Test: TKlasse;
begin
  Test := TKlasse.Create(Form1);
end;

Gruß
Neutral General

[Sadrax]

Danke, vorallem für das Beispiel.
Das mit der TForm hatte ch falsch ausgedrückt, meinte ich aber so wie du es beschrieben hast,
allerdings hatte ich in der hauptUnit folgenden Fehler:

Zitat:

var Test: TKlasse;
begin
Test := Test.Create(Form1);
end;

Keine Ahnung warum ich das so gemacht hatte, habe ich aber immer total übersehen und überall anders den Fehler gesucht.
Vielen Dank!

[Christian Seehase]

Moin Zusammen,

Vorsicht:
Der Parameter, der im Konstruktor eines TComponent-Nachfolgers angegeben werden sollte ist nicht der Parent, sondern der Owner.
Der Owner ist für die Freigabe zuständig.
Wird er angegeben kümmern sich die internen VCL-Mechanismen darum, dass die Komponente freigeben wird, ansonsten (Owner = nil) muss man sich selber darum kümmern.
Der Parent ist für die Postionierung zuständig.
Die Komponente wird relativ zum Parent angezeigt.