Hilfe! mit Prozedur auf Form zeichnen...

[divBy0]

Hat sich erledigt...

Funktioniert so:

Delphi-Quellcode:

procedure zeichneWas(xPos : Integer; yPos : Integer; Image : TImage);
begin
  MyBitmap := TBitmap.Create();
  // irgenwas zeichnen
  Image.Canvas.Draw(xPos,yPos,MyBitmap);
  MyBitmap.Free;
end;

der Aufruf geht dann z.B. so, wobei Image2 das Zielimage ist.

zeichneWas(10,10,Image2);