Einzelnen Beitrag anzeigen

Ralf81

Registriert seit: 11. Apr 2003
2 Beiträge
 
#1

Problem mit Klasse und TImage

  Alt 11. Apr 2003, 09:47
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
  Mit Zitat antworten Zitat