Hallo zusammen,
ich füge hier mal den relevanten Teil meines Quellcodes ein:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
| ...
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
Moderiert von 
Aya: CodeTags hinzugefügt.
