Скачать: CL | DM;

Странная ошибка при работе с контекстом и таймером   Найти похожие ветки 

← →
tomek   (2005-09-20 16:02) [0]

Здравствуйте!
Может кто-то подскажет, почему при попытке переместить окно, выводится дебаггер эксепшен :


procedure TimerProc(h:Hwnd;mes:Cardinal;id:Cardinal;time:Cardinal);
 var ps:TPaintStruct;
     br,brOld:HBRUSH;
     dc:HDC;
begin
if id=timer_id then begin
  dc:=GetDC(h);
  br:=CreateSolidBrush(RGB(r,0,0));
  inc(r);
  if r=255 then r:=0;
  brOld:=SelectObject(dc,br);
  FillRect(dc,Rect(10,10,100,100),br);
  SelectObject(dc,brOld);
  DeleteObject(br);
  ReleaseDC(h,dc);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  r:=0;
  SetTimer(handle,timer_id,500,@TimerProc);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 KillTimer(handle,timer_id);
end;


---

← →
wicked ©   (2005-09-24 22:11) [1]

я, конечно, могу ошибаться, но может стоит в процедуре таймера проверять параметр mes, чтоб был равен WM_TIMER?...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c