<?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 - Программирование</title>
	<atom:link href="http://www.mydelphi.info/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.9.2</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>TObject</title>
		<link>http://www.mydelphi.info/code/190</link>
		<comments>http://www.mydelphi.info/code/190#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:44:02 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Caption]]></category>
		<category><![CDATA[ClassInfo]]></category>
		<category><![CDATA[ClassParent]]></category>
		<category><![CDATA[Delphi]]></category>
		<category><![CDATA[function]]></category>
		<category><![CDATA[InheritsFroin]]></category>
		<category><![CDATA[MyParent]]></category>
		<category><![CDATA[Object]]></category>
		<category><![CDATA[TCIass]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=190</guid>
		<description><![CDATA[
TObject
TObject является общим предком всех классов в Delphi, корнем
иерархии Visual Component Library. Tobject представляет собой абстрактный
класс, реализующий только наиболее общие механизмы, универсально разделяемые
всеми объектами VCL.
TObject автоматически используется как порождающий тип при создании
нового класса Delphi. Следовательно, следующие фрагменты кода имеют одно
и то же значение:
        type
     [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/190/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как зарегистрировать расширение файла за своим приложением и контекстное меню</title>
		<link>http://www.mydelphi.info/code/189</link>
		<comments>http://www.mydelphi.info/code/189#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:39:54 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Click]]></category>
		<category><![CDATA[command]]></category>
		<category><![CDATA[DefaultIcon]]></category>
		<category><![CDATA[description]]></category>
		<category><![CDATA[LotsOfParamaters]]></category>
		<category><![CDATA[MyApp]]></category>
		<category><![CDATA[myext]]></category>
		<category><![CDATA[Sender]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[TonsOfParameters]]></category>
		<category><![CDATA[TRegIniFile]]></category>
		<category><![CDATA[WriteString]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=189</guid>
		<description><![CDATA[Вопрос:
Как зарегистрировать расширение файла за своим приложением и контекстное меню,
связанное с этим типом?
Ответ:
Пример регистрирует расширение файла(.myext) - файлы этого типа будут открываться
приложением MyApp.Exe. Также регнстрируется одно действие (action) по умолчанию
для файлов этого типа и два дополнительных пункта контекстного меню, связанного с
этим типом файлов. Возможно, потребуется перезайти в систему чтобы изменения

вступили в силу.

Пример:

uses
	Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
	R : [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/189/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Некоторые компоненты не меняют курсор мыши</title>
		<link>http://www.mydelphi.info/code/188</link>
		<comments>http://www.mydelphi.info/code/188#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:38:44 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[CrHourglass]]></category>
		<category><![CDATA[Cursor]]></category>
		<category><![CDATA[GetCursorPos]]></category>
		<category><![CDATA[ProcessMessages]]></category>
		<category><![CDATA[Screen]]></category>
		<category><![CDATA[SetCursorPos]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=188</guid>
		<description><![CDATA[Вопрос:
Некоторые компоненты не меняют курсор мыши до тех пор пока пользователь не
сдвинет мышь. Как эмулировать движение мыши?
Ответ:
В примере мышка слегка "подталкивается" без участия пользователя.

procedure TForm1.Button1Click(Sender: TObject);
var
	pt : TPoint;
begin
	Application.ProcessMessages;
	Screen.Cursor := CrHourglass;
	GetCursorPos(pt);
	SetCursorPos(pt.x + 1, pt.y + 1);
	Application.ProcessMessages;
	SetCursorPos(pt.x - 1, pt.y - 1);
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/188/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Функция keybd_event() принимает значения до 244</title>
		<link>http://www.mydelphi.info/code/187</link>
		<comments>http://www.mydelphi.info/code/187#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:38:01 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[FillChar]]></category>
		<category><![CDATA[focus]]></category>
		<category><![CDATA[KEYUP]]></category>
		<category><![CDATA[ProcessMessages]]></category>
		<category><![CDATA[RIGHT]]></category>
		<category><![CDATA[ScanCode]]></category>
		<category><![CDATA[SendMessage]]></category>
		<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=187</guid>
		<description><![CDATA[Вопрос:
Функция keybd_event() принимает значения до 244 - как мне отправить нажатие
клавиши с кодом #255 в элемент управления Windows?
Ответ:
Это может понадобится для иностранных языков или для специальных символов. (например,
в русских шрифтах символ с кодом #255 - я прописное). Приведенный в примере метод,
не стоит использовать в случае если символ может быть передан обычным способом
(функцией keybd_event()).

procedure TForm1.Button1Click(Sender: TObject);
var
	KeyData [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/187/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<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>
	</channel>
</rss>

