Здравствуйте ещё и ещё.

Как избежать пропадания значка, нарисованного на TabSheet3 компонента ТPageControl, после переключения вкладок, свертывания/развертывания окна и т.п?

Код

procedure LoadIcon(Module: String; Number: word); var CanCntr: TControlCanvas; begin CanCntr := TControlCanvas.Create; CanCntr.Control := Form1.TabSheet3; //Третья вкладка PageControl1 DrawIcon(CanCntr.Handle, 10, 10, ExtractIcon(HInstance, PChar(Module), Number)); end; //Вызов LoadIcon('pfdimg.dll', 8);

Была у меня ещё такая идея:
Рисую прямо в ТImage.

Код

{$IFDEF WIN32} const BadDllLoad = 0; {$ELSE} const BadDllLoad = 32; {$ENDIF} //Загрузка курсора из DLL procedure LoadIconfromDLL(TheHDC:hDC; Number: word); var h, r: cardinal; begin h := LoadLibraryA('pfdimg.dll');  if h <= BadDllLoad then Exit else  begin   r := ExtractIcon(h, 'pfdimg.dll', Number);   DrawIcon(TheHDC, 0, 0, r);   FreeLibrary(h);  end; end; //Вызов LoadIconfromDLL(Image2.Canvas.Handle, 8);

Последняя работает лучше, но пока вкладки не переключишь значёк не появиться. Image2 расположен на вкладке TabSheet3 компонента ТPageControl. И прорисовываеться значок не очень красиво когда в Image2 уже есть рисунок. Что-то с прозрачностью. Рисунок должен находиться в Image2, так задумано, а поверх него загружаеться значок.

:baaa

Тебе надо определить события по перерисовке компонента, иначе твоя программа просто "не знает" что при перерисовке компонента надо перерисовывать Canvas примененным тобой методом

Теория - хорошо, но практика - круче.
Можно пример, хоть какой-нибудь?

Тут у тебя как раз теории не хватает - читни где-нибудь: как и кто перерисовывает окно и его элементы при манипуляциях с ним...

Цитата

читни где-нибудь: как и кто перерисовывает окно и его элементы при манипуляциях с ним...

Скажи где, читну.

Хотябы в справке по Delphi

Проще всего включить прорисовку на событие onPaint только будь осторожен - это событие вызывается очень часто, поэтому операция должна быть максимально простая.

TPageControl.onDrawTab ?

А где ты видел у ТPageControl  -  onPaint ???

Самому сделать надо.

Как сделать? Есть пример?

Type MyPageControl=class(TPageControl)
...
End;

Вообще-то я имел ввиду onPaint событие формы, можно попробовать и предложение Song (TPageControl.onDrawTab) только боюсь что не всегда будет работать, самому писать событие для TPageControl конечно занятие увлекательное, но если этот TPageControl занимает больше 80% площади формы, то особой выгоды в этом я не вижу.