Code:

procedure TForm1.Button1Click(Sender: TObject);

var

  Picture: TPicture;

  Desktop: TCanvas;

  X, Y: Integer;

begin

  // Objekte erstellen

// create objects

Picture := TPicture.Create;

  Desktop := TCanvas.Create;

 

  // Bild laden

// load bitmap

Picture.LoadFromFile('bitmap1.bmp');

 

  // Geratekontex vom Desktop ermitteln

// get DC of desktop

Desktop.Handle := GetWindowDC(0);

 

  // Position des Bildes

// position of bitmap

X := 100;

  Y := 100;

 

  // Bild zeichnen

// draw bitmap

Desktop.Draw(X, Y, Picture.Graphic);

 

  // Geratekontex freigeben

ReleaseDC(0, Desktop.Handle);

 

  // Objekte freigeben

// release objects

Picture.Free;

  Desktop.Free;

end;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить