Canvas: "erlaubt kein Zeichnen"

[VkPenguin]

.. Du hast Recht, ich hatte einen anderen Fehler gemacht, tut mir leid.

Das Testprogramm funktioniert so aber immernoch nicht, mache noch irgendetwas falsch. Fügt man die eingeklammerte Zeile hinzu geht es, aber ich will das Bild ja nicht auf dem Desktop haben, das hab ich nur beim lesen gerade gefunden. Scheint immernoch der am Anfang bereits genannte Fehler zu sein, ich weiß nur nicht, wie ich der Canvas das beibringen soll.. vielleicht find ichs ja noch

Delphi-Quellcode:

Program test;
uses
  ExtCtrls,
  Variants,
  mmsystem,
  sysutils,
  Windows,
  Messages,
  Classes,
  Graphics,
  Controls,
  Forms,
  Math,
  Dialogs,
  StdCtrls,
  JPEG,
  IniFiles;


{W A R T E}

procedure wait(t: extended);
  var
    a: extended;
  begin
    a := GetTickCount;
    repeat
      Application.ProcessMessages;
    until (GetTickCount > a+t);
  end;

VAR
Beispiel :TCanvas;
Bild:Tbitmap;
x,y:Integer;
Begin
  Beispiel:=Tcanvas.create;
  // 2. Objekt erzeugen
  bild := TBitMap.Create;
  // 3. BitMap aus Datei laden, damit wird Größe gesetzt
  bild.LoadFromFile('abc.bmp');
  // 4. Eigenschaften einstellen
  bild.Transparent := true;
   x := 5; y :=5;
  // 5. Bitmap anzeigen
 // Beispiel.Handle := GetWindowDC(0);
  Beispiel.Draw(x,y,bild);



  wait(1500);
  // 6. Speicher freigeben
  bild.free;
 Beispiel.free
end.