| |
| Reducing the resource requirements of TNotebook and TTabbedNotebook |
 |
Is there any way to reduce the resource requirements of the TNotebook and TTabbedNotebook components?
Yes. It is possible to reduce the requirements of the pages in the TNotebook and TTabbedNotebook components by destroying the handles of the components that are not on the current page. The following example demonstrates calling the protected DestroyHandle method of the page, by subclassing the notebook to get access to the protected method.
type TMyTabbedNotebook = class(TTabbedNotebook);
type TMyNotebook = class(TNotebook);
procedure TForm .TabbedNotebook Change(Sender: TObject;
NewTab: Integer;
var AllowChange: Boolean);
begin
with TabbedNotebook do
TMyTabbedNotebook(
TWinControl(Pages.Objects[PageIndex])).DestroyHandle;
end;procedure TForm .TabSet Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
begin
with Notebook do
TMyNotebook(TWinControl(Pages.Objects[PageIndex])).DestroyHandle;
NoteBook .PageIndex := NewTab;
AllowChange := true
end;
|
|
| Hits/month |
2,500,000+ |
Downloads (Since May 2000) |
7,393,709 |
| Total Files |
6,023 |
| Forum msgs |
7,670 |
| Articles/FAQs |
70+/900+ |
Top Selling Software at Amazon
|