допоможіть, підкажіть. мені необхідно підставити на фон PageCotol точніше на фон вкладки TabSheet картинку. я робив наступним чином: pocedue TFom1.TabSheet1Show (Sede: TObject); begiTabSheet1.Bush.Bitmap: = Tbitmap.Ceate; TabSheet1.Bush.Bitmap.LoadFomFile ( '480X362.bmp'); ed; // і все виходило на delphi 7Но я поставив Embacadeo RAD Studio XE2 і там чому, то ми не виявляючи помилок не виявляє картинку - фон. підкажіть, може хто знає інший спосіб поставити фон на TabSheet. варіант з Image відпадає. так як він перекриває Label, и а це. до речі чому Image перекриває Label.
Делфі: Delphi, як встановити фон на PageControl-gt; TabSheet
як встановити компонент в Delphi 7 TIdTheadMgDefault
Перейшов з Delphi 7 на XE. Звик до підсвічування коду від billiatcode. На сайті розробника написано що встановити на XE можна, начебто. Але, не сказано як. Підкажіть, як встановити на XE.
3288 113563 113636
LGN (Гість) 3 роки тому
Якщо у властивостях проекту в XE2 поставити Application \\ Runtime Themes \ u003d None, то зазначений код буде працювати і в XE2.
Для коректної роботи з включеними темами необхідно створити спадкоємця TTabSheet і перевизначити приватну обробку повідомлення WM_ERASEBKGND:
type
TMyTabSheet \ u003d class (TTabSheet)
private
procedure WMEraseBkgnd (var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
end;
додати сторінку в наявний PageControl можна так:
with TMyTabSheet.Create (Self) do
PageControl: \ u003d PageControl1;
Правда з отрисовкой контролів над зображенням ще прийдется повозитися ;-)
EchoDia (Гість) 3 роки тому
до речі чому Image перекриває Label.
У них є порядок відображення (Z-order здається). Кликни правою кнопкою по Image і там буде команда відправити в самий низ (щось про back).
PS якщо це не завдання препода, то за такі речі хочеться по руках надавати, дратує моторошно