.. 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.