Hi,
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
T3d=
class(Tgraphiccontrol)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var t:t3d;
begin
t:=t3d.Create(self);
t.Parent:=form1;
t.canvas.moveto(1,1);
t.canvas.lineto(100,100);
canvas.Assign(t.canvas); <------
t.Free;
end;
end.
Jetzt funktioniert das plötzlich, nachdem ich in der abgeleiteten Klasse privat und public eingefügt habe.
Sonst nichts verändert.
Ich hab leider noch einen Fehler:
Warum lässt sich der canvas des tgraphiccontrol nicht dem canvas der Form zuweisen?
Habs auch mit einer Bitmap probiert:
Fehlermeldung:
Tcontrolcanvas kann nicht zu Tcontrolcanvas zugewiesen werden!
Ziel meiner Aktion ist es einfach einen canvas zu haben auf den ich zeichnen und der zugewiesen werden kann.
Viele Grüsse