[helper999999]

Помогите не получается вставить картинку из ресурса.

Код:

function MessageMainProcess(Handle: HWND; Msg: UINT; WParam: Integer; LParam: Integer): Integer;stdcall;
begin
  Result:=0;
  case msg of
    WM_CREATE:
      begin
      { ...}
      end;
    WM_PAINT:
     begin

     bmp:= LoadGIFRes(hInstance, 'button_next', 'GIF');//Загрузка *.RES
 SelectObject(hdcMem, bmp);
 BitBlt(a, 0, 0, 100, 100, hdcMem, 100, 100, SRCCOPY);
   
     end;

    WM_DESTROY:
      begin
        PostQuitMessage(0);
        Exit;
      end;
  end;
  Result:=DefWindowProc(Handle,Msg,WParam,LParam);
end;

procedure LoadGIFRes она конвертирует, работает как надо но изображение не обрисовывается.

[angvelem]

Загрузку файла лучше делать в сообщении WM_CREATE.
Чтобы сказать почему не отрисовывается, нужно видеть часть кода. Откуда взялась переменная а, обычно это ps.hdc, как получена hdcMem?

[helper999999]

Сообщение от angvelem

Загрузку файла лучше делать в сообщении WM_CREATE.
Чтобы сказать почему не отрисовывается, нужно видеть часть кода. Откуда взялась переменная а, обычно это ps.hdc, как получена hdcMem?

надо попробывать, да и самому интересно переменные чем их обозвать, скажу честно что код выдрал из интернета, так как раньше не задовался этим вопросом, и по-этому не знаю. Может как раз вы госспода поможете разобраться.

[angvelem]

Поможем, если более полный код будет. В частности указанные переменные интересуют.

[helper999999]

переменные

Код:

var
  hdcMem,a: THandle;
  bmp: hBitmap;

[angvelem]

Так не пойдёт. Прежде чем использовать эти переменные их нужно инициализировать. Вот этот кусок кода интересует. Кстати, переменная a, не может быть типа THandle.