[Demonuka]

Пишу так

Код:

tempBmp:=TBitmap.Create();
tempBmp.loadFromFile(put);
BitBlt(Image5.Canvas.Handle,Top,Left,Width,Height,tempBmp.Canvas.Handle,0,0,SRCCOPY);
Image5.Canvas.Refresh;

На Image5 никаких изменений..((

[NumLock]

Код:

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
var
  ABitmap: TBitmap;
begin
  ABitmap:=TBitmap.Create;
  try
    ABitmap.LoadFromFile('d:\Картинки\Разное\apple.bmp');
    BitBlt(Image1.Canvas.Handle,
      0, 0, ABitmap.Width, ABitmap.Height,
      ABitmap.Canvas.Handle, 0, 0, SRCCOPY);
  finally
    ABitmap.Free;
  end;
end;

[Demonuka]

Огромное спасибо..)) Так работает..))

[Lucky192]

Внимательно еще раз прочитайте справку по функции BitBlt.

Второй и третий параметры должны быть в системе координат Image5. Т.е. если хотите просто скопировать изображение - вместо Left,Top должны стоять нули. А сейчас у вас берутся экранные координаты верхнего левого угла формы. Соответственно вы просто выводите картинку мимо Image5. Подвиньте форму в левый верхний угол экрана - сами увидите как картинка начнет отрисовываться на Image5.