<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Мой DELPHI - Программирование &#187; TWinControl</title>
	<atom:link href="http://www.mydelphi.info/code/tag/twincontrol/feed" rel="self" type="application/rss+xml" />
	<link>http://www.mydelphi.info</link>
	<description>Всё для программера</description>
	<lastBuildDate>Mon, 09 Jun 2008 16:55:52 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.8</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Можно ли уменьшить потребляемые компонентами TNotebook и TTabbedNotebook ресурсы?</title>
		<link>http://www.mydelphi.info/code/186</link>
		<comments>http://www.mydelphi.info/code/186#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:37:13 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[DestroyHandle]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[PROTECTED]]></category>
		<category><![CDATA[TMyTabbedNotebook]]></category>
		<category><![CDATA[TNotebook]]></category>
		<category><![CDATA[TTabbedNotebook]]></category>
		<category><![CDATA[TWinControl]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=186</guid>
		<description><![CDATA[Вопрос:
Можно ли уменьшить потребляемые компонентами TNotebook и TTabbedNotebook ресурсы?
Ответ:
Да. Можно уничтожать обьекты, расположенные не на текущей странице TNotebook или
TTabbedNotebook. В примере вызывается защищенный (Protected) метод путем создания
так называемый "class cracer'ов".

type TMyTabbedNotebook = class(TTabbedNotebook); //это наш "class cracer"
type TMyNotebook = class(TNotebook);

procedure TForm1.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
			var AllowChange: Boolean);
begin
	with TabbedNotebook1 do  //вызываем защищенный метод родительского класса
		TMyTabbedNotebook(TWinControl(Pages.Objects[PageIndex])).DestroyHandle;
end;

procedure TForm1.TabSet1Change(Sender: [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/186/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как скрыть свойства объекта?</title>
		<link>http://www.mydelphi.info/code/56</link>
		<comments>http://www.mydelphi.info/code/56#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:40:50 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[function]]></category>
		<category><![CDATA[Integer]]></category>
		<category><![CDATA[Object]]></category>
		<category><![CDATA[property]]></category>
		<category><![CDATA[TMyControl]]></category>
		<category><![CDATA[TWinControl]]></category>
		<category><![CDATA[Value]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=56</guid>
		<description><![CDATA[Как скрыть свойства объекта?
В иерархии VCL в большинстве случаев существует уровень объектов-&#8221;предшественников&#8221;
(TCustomXXXX), в которых многие свойства скрыты. Для унаследованных от таких
&#8220;предшественников&#8221; объектов можно &#8220;открывать&#8221; на выбор те или иные свойства.
А как можно сокрыть свойства, которые объявлены в published-области
от Object Inspector&#8217;а, но при этом оставить возможность доступа во время
работы программы? Решение состоит в объявлении свойства &#8220;по [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/56/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
