Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Вниз

Обработчик сообщения 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 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.051 c
2-1162480191
Riply
2006-11-02 18:09
2006.11.19
Два комонента, использующие OpenGL


5-1142928524
Neo Trinitron
2006-03-21 11:08
2006.11.19
Проблема с Items


2-1162267874
viper03
2006-10-31 07:11
2006.11.19
Как извлечь объект из ЛистБокса?


15-1162262217
Mozart
2006-10-31 05:36
2006.11.19
Подскажите начинающему железячнику :)


2-1162377933
gaval
2006-11-01 13:45
2006.11.19
FastReport





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский