Einzelnen Beitrag anzeigen

Sadrax

Registriert seit: 26. Okt 2004
Ort: Gommern
14 Beiträge
 
#1

TImage.Create() in extra Unit

  Alt 25. Mär 2007, 15:07
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.
  Mit Zitat antworten Zitat