这段代码什么意思?
各位大虾这段代码是什么意思?特别是CreateCompatibleDC,BitBlt,SelectObject的用途
procedure TMRunScreen.DrawTextBitmap;
var
hDC, hCompDC, hOldHandle:THandle;
begin
hDC := GetDC(Handle);
hCompDC := CreateCompatibleDC(hDC);
hOldHandle := SelectObject( hCompDC, TitleBitmap.Handle );
BitBlt( hDC,0,0,Width,Height,hCompDC,0,0,SRCCOPY );
SelectObject( hCompDC, hOldHandle );
ReleaseDC(handle,hDC);
DeleteDC(hCompDC);
end;
问题点数:50、回复次数:4Top




