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

Обработчик сообщения WM_PAINT не срабатывает для PageControl   Найти похожие ветки 

← →
0315   (2006-11-03 04:19) [0]

Вот часть кода:
 private
   procedure LabelPaint(var Msg: TWMPAINT); message WM_PAINT;
...

procedure TForm1.LabelPaint(var Msg: TWMPAINT);
var i: byte; rect: TRect;
begin
inherited;
rect:= Bounds(0, 0, 60,45);
For i:= 1 to 9 do with TLabel(FindComponent ("Label" + IntToStr(i))) do Canvas.StretchDraw(rect,b[i]);
end;

Проблема в том, что Label1..9 находятся на PageControl1 и ни.. чего не срабатывает, то-есть форма конечно прорисовывается но картинок на Label1..9 нету...
Если Label1..9 размещать непосредственно на форме всё работает, и ещё, что самое интересное, если убрать inherited, то само собой не прорисовываются все остальные объекты, зато прорисовываются картинки на Label1..9...
Вообщем, если кто знает как решить эту проблему, не изменяя сильно кода программы, напишите на мой майл, заранее благодарен.

---

← →
Ketmar ©   (2006-11-03 04:42) [1]

вот же удивительно, а? http://antigreen.org/bioreactor/

---

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

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



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