Canvas..

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  BM: TBitmap;
begin
  BM := TBitmap.Create();
  BM.Height := 200;
  BM.Width := 200;
  Canvas.Draw(50, 50, BM);
  BM.Free;
end;

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  BM: TBitmap;
begin
  BM := TBitmap.Create();
  try
    BM.Height := 200;
    BM.Width := 200;
    //glemte at kommentere denne
    //denne tegner billedet BM i koordinatet (50, 50) på
    //formen
    Canvas.Draw(50, 50, BM);
  finally
   BM.Free;
  end;
end;

Her indsat i en knaps Onclick

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  BM: TBitmap;
begin
  BM := TBitmap.Create();
  BM.Height := 200;
  BM.Width := 200;
  Canvas.Draw(50, 50, BM);
  BM.Free;
end;

Hvis det skal være helt korrekt skal det dog laves sådan:

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  BM: TBitmap;
begin
  BM := TBitmap.Create();
  try
    BM.Height := 200;
    BM.Width := 200;
    //glemte at kommentere denne
    //denne tegner billedet BM i koordinatet (50, 50) på
    //formen
    Canvas.Draw(50, 50, BM);
  finally
   BM.Free;
  end;
end;

Casper

[Redigeret d. 15/12-03 21:53:56 af Casper Steinmann]