Показать сообщение отдельно
  #4  
Старый 28.01.2015, 23:01
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Как вариант
Код:
var
  bmpMain, bmpBut, oldBmp : hBitmap;
  dc, ccdc : HDC;
  Count : Integer; 

function MesPro(Handle: HWND; Msg: UINT; WParam: Integer; lParam: Integer): Integer;stdcall;
var
  ps: PAINTSTRUCT;
begin
  Result:=0;
  case msg of
    WM_CREATE:
    begin
      dc := GetDC(0);
      ccdc := CreateCompatibleDC(dc);
      bmpBut := LoadRes(hInstance,'button_next','PNG');//Загрузка *.RES
      OldBmp := SelectObject(ccdc, bmpBut);
      SetTimer(Handle, 1, 100, NIL);
    end;
    
    WM_TIMER :
    begin
      inc(Coount);
      if Count > 8 then
        Count := 1;
      bmpBut := LoadRes(hInstance, 'button_next', IntToStr(Count) + 'PNG');//Загрузка *.RES
      SelectObject(ccdc, bmpBut);
      InvalidateRect(Handle, NIL, False);
    end;

    WM_PAINT:
    begin
      BeginPaint(Handle,ps);
      BitBlt(ps.hdc,414,383,34,34,ccdc,0,0,SRCCOPY);
      EndPaint(Handle,ps);
    end;

    WM_DESTROY:
    begin
      KillTimer(Handle, 1);
      DeleteObject(SelectObject(ccdc, OldBmp));
      DeleteDC(ccdc);
      ReleaseDC(0, dc);
      PostQuitMessage(0);
      Exit;
    end;
  end;
  Result:=DefWindowProc(Handle,Msg,WParam,LParam);
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием