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

[Luckie]

TWidgetControl. Ich kenne mich da nicht aus aber diesen Begriff habe ich nur mal irgendwo im Zusammenhang mit Kylix gesehen. Kann es sein, dass du irgendwelche CLX-Units eingebunden hast oder so? Du entwickelst doch mit Delphi unter Windows?

[Ralf81]

:wall:

Ich hatte in der Tat eine CLX-Unit eingebunden. Da ist es ja kein Wunder, dass Delphi unter Windows meckert..

Vielen Dank für die schnelle Hilfe.. Ralf :hello: