<?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; TObject</title>
	<atom:link href="http://www.mydelphi.info/code/tag/tobject/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/182</link>
		<comments>http://www.mydelphi.info/code/182#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:34:00 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Alt]]></category>
		<category><![CDATA[DOWN]]></category>
		<category><![CDATA[Event]]></category>
		<category><![CDATA[KEYUP]]></category>
		<category><![CDATA[painting]]></category>
		<category><![CDATA[ProcessMessages]]></category>
		<category><![CDATA[Sender]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=182</guid>
		<description><![CDATA[Вопрос:
Как программно заставить выпасть меню?

Ответ:
В примере показано как
показать меню и выбрать в нем какой-то пункт, эмулируя нажатие &#8220;быстрой кдавиши&#8221;
пункта меню. Если у Вашего пункта меню нет &#8220;быстрой клавиши&#8221; Вы можете посылать
комбинации VK_MENU, VK_LEFT, VK_DOWN, и VK_RETURN, чтобы программно &#8220;путешествовать&#8221;
по меню.
Пример:
procedure TForm1.Button1Click(Sender: TObject);
begin
	//Allow button to finish painting in response to the click
	Application.ProcessMessages;
	{Alt Key Down}
	keybd_Event(VK_MENU, 0, 0, [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/182/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Можно ли сделать так &#8211; одна форма показывает другую и остается позади нее</title>
		<link>http://www.mydelphi.info/code/178</link>
		<comments>http://www.mydelphi.info/code/178#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:30:15 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[auto-created]]></category>
		<category><![CDATA[begin]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[Form]]></category>
		<category><![CDATA[SHOWNA]]></category>
		<category><![CDATA[ShowWindow]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[Visible]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=178</guid>
		<description><![CDATA[Вопрос:
Можно ли сделать так - одна форма показывает другую и остается позади нее, но фокус
ввода не переходит к новой форме, а остается у старой?
Ответ:
В примере показывается не автосоздаваемая (non auto-created) форма, но фокус ввода ей
не передается.

Пример:

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
	Form2 := TForm2.Create(Application);
	Form2.Visible := FALSE;
	ShowWindow(Form2.Handle, SW_SHOWNA);
end;
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/178/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как поместить курсор в определенную позицию edit&#8217;а и подобных ему элементов управления?</title>
		<link>http://www.mydelphi.info/code/176</link>
		<comments>http://www.mydelphi.info/code/176#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:28:33 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Click]]></category>
		<category><![CDATA[Delphi]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[SelectLength]]></category>
		<category><![CDATA[SelLength]]></category>
		<category><![CDATA[SelStart]]></category>
		<category><![CDATA[SetFocus]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=176</guid>
		<description><![CDATA[Вопрос:
Как поместить курсор в определенную позицию edit'а и подобных ему элементов управления?
Ответ:
Можно использовать методы Delphi SelStart() и SelectLength().

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	Edit1.SetFocus;
	{переводим курсор во вторую позицию}
	Edit1.SelStart := 2;
	{не выделяем никакого текста}
	Edit1.SelLength := 0;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/176/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

