Thema: Delphi Zwei Malebenen

Einzelnen Beitrag anzeigen

DocE

Registriert seit: 25. Mär 2004
108 Beiträge
 
#9

Re: Zwei Malebenen

  Alt 2. Nov 2006, 20:03
Das liegt daran, dass Du zformular als TForm ansprichst. Das TForm kennt Deine Komponente aber (noch) nicht. Also entweder:

Delphi-Quellcode:
constructor THaus.create(formular : TForm1; imghinten : TImage); // <-- hier TForm1
begin
  inherited create;
  zformular := formular;
  zimghinten := imghinten;
end;
und natürlich dann auch
Delphi-Quellcode:
private
   zformular : TForm1;
- oder -


Delphi-Quellcode:
procedure THaus.Zeichnen;
begin
  TForm1(zformular).zimghinten.Canvas.Rectangle(5,5,20,20);
end;

Grüsse
...Doc
  Mit Zitat antworten Zitat