Problem mit Klasse und TImage

**Ralf81**

Hallo zusammen,

ich füge hier mal den relevanten Teil meines Quellcodes ein:

Code:

			 
... 

type TStrom = class(Timage) 

  // Felder: 

  private 

  name: string; 

  typ: string; 

  c: real; 

  // Methoden: 

  procedure zeichnen(canvas:TCanvas); 

end; 

... 

procedure Tmain_form.Button1Click(Sender: TObject); 

var strom:Tstrom; 

begin 

  strom:=TStrom.Create(self); 

  strom.Parent:=main_form;     //hier wird die Fehlermeldung erzeugt 

  strom.Left:=10; 

  strom.top:=10; 

  strom.Width:=100; 

  strom.Height:=30; 

  strom.Canvas.Ellipse(50,15,5,5); 

  strom.Show; 

end;

Wenn ich das Programm starten will, bekomme ich an der oben angezeigten Stelle immer diese Fehlermeldung: "Inkompatible Typen: 'TWidgetControl' und 'Tmain_form' "

Wenn ich die Variable strom als TImage statt als TStrom deklariere, funktioniert alles einwandfrei... Warum funktioniert das nicht, wenn ich die Klasse TStrom verwende?

Ich bin für jeden Tipp dankbar.
MfG Ralf

Problem mit Klasse und TImage

Problem mit Klasse und TImage

Forumregeln