Hallo zusammen,

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

markieren

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

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?

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