Помещение картинки на форму

← →
Hotabich (2004-01-30 19:53) [0]

Такая вот получилась проблема.
Необходимо из bmp файла загрузить картинку на форму (цель данного мероприятия - придать красивый вид формы после изменения ее региона (SetWindowRegion))
Привожу отрывок из своей оконной процедуры
procedure TForm1.WndProc(var Mess: TMessage);
var
hdcTemp, bpHDC: HDC;
Bitmap: TBitmap;
case Mess.Msg of
WM_PAINT:
begin
bpHDC := GetDC(Handle);
hdcTemp := CreateCompatibleDC(bpHDC);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile ("D:\Game\REVESI\ANGEL000.BMP");
SelectObject(hdcTemp,HGDIOBJ(Bitmap));
BitBlt(bpHDC,0,0,Bitmap.Width,Bitmap.Height,hdcTemp,0,0,SRCCOPY);
Bitmap.Free;
DeleteDC(hdcTemp);
DeleteDC(bpHDC);
end;
end;
Заранее благодарен

← →
GrayFace © (2004-01-31 13:55) [1]

Может, ReleazeDC(bpHDC) вместо DeleteDC(bpHDC) надо.

Помещение картинки на форму Найти похожие ветки