Обработчик сообщения WM_PAINT не срабатывает для PageControl [D6, Win2k, WinXP]
0315 © (2006-11-03 04:19:00)
Вот часть кода:
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:00) [1]
вот же удивительно, а?
http://antigreen.org/bioreactor/
Наверх 
ЧАТ |
Орешник |
|
