Главная страница
    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.042 c
15-1162494089
Vovan#1
2006-11-02 22:01
2006.11.19
Оформление математических решений


1-1160418934
o_serg
2006-10-09 22:35
2006.11.19
ListView.Items.Item[n].Data присвоить ansistring


11-1139053039
Boguslaw
2006-02-04 14:37
2006.11.19
Unicode


15-1162052130
TUser
2006-10-28 20:15
2006.11.19
Клавиатура ноутбука


6-1149759399
kekc
2006-06-08 13:36
2006.11.19
Локальный чат...!ПОМОГИТЕ!





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский